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ABSTRACT 


The exerciser will be similar to that of other disk subsys- 
tem exercisers. Writes will be performed to the disks rol- 


lowed by read and compere of the dete read. The controlier. 


will do ell error retrying. Errors will be reported on the 
console TTY. 


All desired disk drives on the controller will be exercised 
simultaneously. If disk eccessing is not required, then 
date written will go only as fer as the controller's RAM 
memory . 


If the results of the exerciser requires more information, 
two other PDP-11 diagnostic programs ere available. They 
ere: 


CZUDHAO - UDASOA/KDASO-@ and Disk Drive Diagnostic 


CZUDIAO - UDASOA/KDASO-@ Disk Drive Exerciser 
CZUDKAO - UDASOA/KDASO-Q Disk Formatter. 


REQUIREMENTS 


Herdware for ell cases: 
One DEC/X11 module configures for one UDASOA or KDASO-Q 


SEQ 9002 
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3.0 


controller. 


Herdwere for disk accessing: 

One controller with et least one drive is the minimum 
amount or one controller with four drives is the max i mum 
amount. 


Hardware for no disk accessing: 
One controller is the only requirement. 


Storage: DUBD requires 
Decimal words -- 4096 MAX 


START -UP 


On the initial start. the program will clear bitl of ‘SR1’ 
and type the following messages. 


DUBDO PA:0060162 APC: 000674 PASS #00000 


‘IF YOU WISH TO DESTROY CUSTOMER DATA, SET BIT1 (NOT BITO) 
IN SWITCH REGISTER 1(SR1) OF DUBU? EQUAL TO 1.’ 


DUBDO PA:0060210 APC: 000722 PASS #00000 
‘# OPERATING WITH NO DISK ACCESSING !' 


This will occur requerdless of the condition of SR1 (bitl) 
et configure time. 


If the operator wishes to exercise the drive, SRI (bitl) 
must be modified at location 16 of CXDUBDO module (see sec- 
tion 9). This cen be eccomplished by using the ‘MOD’ com- 
mand supplied by the DECX11 run time system. Unless the 
progrem is reloaded or the operstor modifies the location 
again, the contents of SR1 will remain the same on ell sub- 
sequent sterts. 


On all subsequent starts, the condition of SR1 (bitl) will 
type to terminal in the following manor. 


If bitl of SR1 is equal to 0 (zero), the following warning 
will be typed. 


DUBDO PA:0060210 APC: 000722 PASS #00000 
‘* OPERATING WITH NO DISK ACCESSING !’ 


If bitl of SRI is equal to 1 (one), the following warning 
will be typed. 


DUBDO PA:0060210 APC: 000722 PASS #00000 
‘# CUSTOMER DATA WILL BE DESTROYED !' 


SEQ 0003 
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«<<< NOTE »>>> 
When this DEC/X11 module runs in diskless mode, its 
date rate exceeds all other devices. This may cause 
erroneous data lates from other devices. 


4.0 PASS DEFINITION 
One pass of the DUBD module consists of 512 iterations of 
the basic test sequence (write, read, date-check). The 
test sequence writes a user defined number of words (de- 


t 
fault is 256) words, reads 256 words, and data-compare 
seme. 


5.0 EXECUTION TIME 
The default execution time of one pass of ODUBD running 
alone on e POP-11/44 under sequential disk accessing mode 
will be approximately 20 seconds. Under random accessing 
mode, the time is 40 seconds. For no disk accessing, the 
time is five seconds 


6.0 CONFIGURATION REQUIREMENTS 
Default Parameters: 


DEVADR: 172150, VECTOR: 154, BR1: 4, DEVCNT: 1, SRi: 
0, SR2: O 


REQUIRED PARAMETERS: 


Additional controller module(s) configured must have different 
Unibus address(es) and vector(s). 


7.0 DEVICE/OPTION SETUP 


For disk mode, make certain that all units are powered up, 
write enabled, connected to a controller vie the SOI and ready. 


For diskless mode, make certain the controller is powered up. 


8.0 MODULE OPERATION 
TEST SEQUENCE DISK MODE: 


, Setup device register addresses and module variables. 
Set controller cheracteristic. 
B. Reset all units on-line and drop all that are not. 
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Cc. Get a unit address. | 
D. Get a disk address and a fresh block of date. 
E. Do a write -- if errors, report. 
i Do e read -- if errors. report. 
G. Do oe data-check -- if errors, report and continue. 
H. Make unit aveilable. 
I. Weit for available attention message. 
J. If end of pass, report and go to D. 
s If end of testing unit, go to C; else go to D. 
Blocks determined defective won't be replaced by the ex- 
erciser duri this sequence. The exerciser makes full use 
of the controller which does revectoring on its own. 
TEST SEQUENCE DISKLESS MODE: 
A. Get e fresh block of date. 
8. Do eo write to controller RAM buffer -- if errors, report. 
as Do a read from controller RAM buffer -- if errors,report. 
D. Do a data-check -- if errors, report and continue. 
# If end of pass. report. 
i Go to A, 


9.0 OPERATION OPTIONS 


One or more software swicch registers can be used by the 
module program general purpose switches. These words are 
used to define or specify a unique device option or to 
point to ea specific routine in the module. Any option must 
be specified by the operator before the module is run. 
Switch Register i has the following characteristics. 


SR1 Bit 1 set (1): Allow disk transfers. 
<<< NOTE >>>> ar! SET, CUSTOMER DATA WILL BE DESTROYED! 
t r 


reset (0): No disk transfers. 
SR1 Bit 2 set (1): Do not report errors as they 
occur o 
reset (0): Report errors as they occur. 
SR1 Bit 3 set (1): Do not print error summary at 
end of pass. 
reset (0): Print error summary at end of 
pass. 
SR1 Bit 9 set (1): Run Duel port mode (only valid if SR1 


Bit 1 is set) 
reset (0): Do not run Duel port mode 


SR1 Bit 10 set (1): Select random block addressing. (only 
velid if SR1 Bit 1 is set) 
reset (0): Select sequentiai block 





+ 
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HI 


SOFT ERROR COUNT #00000 #e¢ HARD ERROR COUNT #00000 
CHECK DATA ERROR COUNT #00000 


10.0 PRINTOUTS 


SEQ 0006 | 
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addressing. | 
SR1i Bit 11 set (1): Bypass data compere. 
reset (0): Do date comapere. 
Switch register 2 has the following cheracter istics. 
SR2 Bits O to 5: Burst rete. 
A burst rate to speed up NPR transfers by the controller 
can be used. This velue is 6 bits maximum and set up in 
SR2 at configure time. 
«<<< NOTE »>>>> 
The DVID1 mask reflects the number of units chosen for 
testing end which units on the system are to be tested. 
Example: If DVID1 contains a 1, only the first unit found 
on the system will be tested. A unit's order on the system 
is judged 7 its unit number. The lowest unit number zero 
(0). Unit 0 would be the first tested on the system. 
If CVID1 conteins a 10, the fourth unit on the system will 
be tested. If the first two units are chosen, OVID! is 3. 
Cone See units medns DVID1 is 17. Six units, DVID1 
is 
If there is not a unit corresponding to the DVID1 bit set- 
ting, the bit set in DVIDI gets cleared. The exerciser 
will readjust the mask and drop the nonexistent units if 
more units are chosen then ectually are present. The mo- 
dule is dropped if all DVIDI bits ere cleared. 
If the number of units chosen is less then the actual 
number of units present, only the desired units will be 
used during the exercise. 
«<<< ANOTHER NOTE >>>> 
Make sure all subunited drives are accounted for. 
Destroying customer date is not desireble. 
<<<< ONE MORE NOTE >>>> 
If SRL Git 3 is reset, a summary status is printed every 
15 passes. This stetus is formatted as follows: 
DUBDO PA: 00060470 ACP: 001210 PASS #00000 


Eee 
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A. Most prirtouts have the standard formats described in 
the DEC/X11 document. 


B. Non-standard printouts include error messages which 
dump the following: 


Summary status 
Flags and endcode 
Unit number 

Byte count 

Hi 16-bit LBN value 
Lo 16-bit LBN value 
Extended address 
Physical address 


All values except for PASS, RUNTIME and ERRCNT are printed 
= —- PASS, RUNTIME and ERRCNT are printed in decimal. 
xaemple: 


DUBDO PA: 00064116 APC: 004630 PASS: 00000 ERRCNT: 00001 
CSRA: 172150 CSRC: 000000 ASTAT: 000006 ERRTYP: 000006 
RUNTIME: 000:00:22 


DUBDO PA: 00064052 APC: 004564 PASS: 00000 


STATUS ENDCOD UNITNU BYTECO HI LBN LO LBN EXTADR PHYADR 
000006 000242 000005 000000 000003 116321 000001 062100 


QAOUS whe 
wee 


STATUS - responce of the command sent to the controller. 
This is contained in the last five bits of the 
word. Here is e list of status codes. 


0 - success 

1 - invalid command 
2- commend eborted 
3 - unit offline 

4 - unit aveileble 

5 - media error 

6 - write protected 
7 - compere error 

10 - dete error 

ll - host buffer access error 
l2 - controller error 
13 - drive error 


ENOCOD - ending code of the command sent. This shows what 
command was sent to the UDA. Here is a list of 
all possible endcodes this module uses. 


100 - AVAILABLE ATTENTION MESSAGE (not a command but 26 
me 


sent to the host from the UDA) 
INVALID C 
GET UNIT STATU 


203 - S 

504 - SET CONTROLLER CHARACTERISTICS 
510 - AVAILABLE 

511 - ONLINE 
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230 - MAINTENANCE READ 
231 -  ## MAINTENANCE WRITE 
241 - READ 
242 - 4WRITE 
UNITNU - unit number of the drive that is being accessed. 


This is not relevent if the user is running diskless 


BYTECO - size of the buffer in bytes. 


HI LBN - high logical block number (upper 16 bits) which tells 
the user where on the disk the data is going. This 
is only valid for disk mode. 


LO LBN - low logical block number (lower 16 bits). 
EXTADR - extended address of the read/write buffer. 
PHYADR - physical address of the read/write buffer. 


C. If the controller failed to pass its internal diagnostic, one 
of the following messages will be printed. 


If the diagnostic found e fault: 


DUBDO PA: 00062052 APC: 002564 PASS: 00000 
CONTROLLER INIT ERROR, FOUND BY DIAGNOSTIC 
SA REGISTER = xxxxxx IN STEP yyyyy 

ADOR = zzzzzz 


If a step bit was not set as expected during the initialization 
sequence of the controller: 


DUBDO PA: 00062152 APC: 002664 PASS: 00000 
CONTROLLER INIT ERROR, STEP NOT SET 

SA REGISTER = xxxxxx IN STEP yyyyy 

ADDR = zzzzzz 


If date passed beck from the controlier was not equal to the 
expected value: 


DUBDO PA: 00062252 APC: 002764 PASS: 00000 
CONTROLLER INIT ERROR, EXPECTED DATA WAS INCORRECT 
SA REGISTER = xxxxxx IN STEP yyyyy 

ADDR = zzzzzz 


Where xxxxxx can have any of the following values and meanings: 


104000 - Fatel sequncer error 

104040 - D processor ALU error 

104041 - D proc ROM parity error 

105102 - D proc with no Board #2 or RAM parity error 
105105 - D proc RAM buffer error 

105152 - D proc SDI error 

105153 - D proc write mode wrap SERDES error 
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105154 - D proc read mode SERDES, RSGEN, and ECC error 

106040 - U proc ALU error 

106041 - U proc Control Register error 

106042 - U proc DFAIL/ROM parity error/Boerd #1 test count is wrong 
106047 - U proc Constant ROM error with D proc running SOI test 
106055 - Unexpectent trap found, aborted diagnostic 

106071 - U proc ROM error 

106072 - U proc ROM parity error 

1 - Step 1 date error (MSB not set) 

107103 - U proc RAM parity error 

107107 - U proc RAM buffer error 

107115 - Board @2 test count was wrong 

112300 - Step 2 error 

122240 - MPR error 

122300 - Step 3 error 

142300 - Step 4 error 


Where yyyyy is the step in which the error was found. 
Where zzzzzz is the address of the UDA. 


If the maximmum number of retries has been exceeded, the 
followning message will be printed. 


DUBDO PA: 00061414 APC:002126 PASS #00000 

RETRY COUNT EXCEEDED, ABORT 

This means the controller did not successfully complete the 
initialization in four passes. The module is then dropped. 


D. If the UDA did not successfully clear the ring buffer in 
the host area, the following message will be printed. 


DUBDO PA: 00061414 APC:002126 PASS #00000 
RING AREA NOT CLEARED 


This is ea fatel error. It means that the controller did not access 
host memory that the cpntroller would use to communicate with the 
host. The module is then dropped. 


E. If the SAregister displays a non-zero value after the 
Se sequence is done, the followng message will 
printed. 


DUBDO PA: 00064252 APC: 004764 PASS: 00000 
SA REGISTER IS NOT ZERO, = xxxxxx 
CONTROLLER IS GOING THROUGH INITIALIZATION 


Where xxxxxx can have the following values and meanings. 
004400 - controller has been inited by either ea bus init or by 


writing into the IP register. 
100001 - bus envelope/packet read error (parity or timeout ) 


— 
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100002 - bus envelopepacket write error (parity or timeout) 
100003 - controller ROM and RAM parity error 
100004 - controller RAM parity error 

100005 - controller ROM parity error 

100006 - bus ring read error 

100007 - bus ring write error 

100010 - bus interrupt master failure 

100011 - Host access timeout error 

100012 - Host exceeded credit limit 

100013 - controller SDI hardware fatel error 
100014 - DM XFC fatel error 

100015 - Hardware timeout of instruction loop 
100016 - Invalid virtual circuit identifier 
100017 - Interrupt write error on bus 


E. If e drive is dropped by the exerciser, one of the 
following messages will be printed. 


If the drive had an error it could not handle properly 
after an iteration, the following message will be printed: 


DUBDO PA: 00063012 APC: 003524 PASS #00000 


DRIVE 00000 DROPPED. 
DEVICE ID BIT = 000001 
ERRORS CAUSED DRIVE TO BE DROPPED 


If the drive was not found by the exerciser, the 
following message will be printed: 


DUBDO PA: 00063012 APC: 003524 PASS #00000 
DRIVE 00000 DROPPED. 
DEVICE ID BIT = 000001 
UNIT WAS NOT FOUND BY THE EXERCISER 
If there were more device count bits set than the actual 
number of drives found, the following message will be 
printed: 
DUBDO PA: 00063012 APC: 003524 PASS #00000 


DRIVE 00000 DROPPED. 
DEVICE ID BIT = 000001 
OVIC2 BIT SET HIGHER THAN ACTUAL @ OF DRIVES FOUND 


Solution: try a lesser number of units in DVID1 Cloc 14) 


11.0 OUAL PORT OPERATION 


To run a dual port operation, set bit9 of SR1. The 
exerciser will check the unit to see if it is offline or 
avei lable. 


eee 


—_—— SE 


SEQ 0010 
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The controller will retain control of a unit until the MSCP 
Available command is entered the host. During this time, 
the other controller is not allowed access to the unit through 
the other port between the write and read. The other con- 
troller senses when the unit becomes available and takes 
't. The MSCP Available command is only executed if SR1 bit 
9 and SR1 bit 1 ere set. This allows dual porting and disk 


accessing respectively. 


DEC/X11 will only duel port a drive with another DEC/X11 
exerciser. 


GLOSSARY 


DUBD follows the module name format described in the 
DEC/X11 Programmer's Guide. 


DU-- Identifies the hardware anc thus the module. 


--B- Distigquishes between two or more different 
modules for the same generic device. The 
sequence A, B, C, ETC. must be used for 
each additional example. 


oonf) Specifies the module revision. 


IOMODX is a type of module in an extended input/output 
mode . These modules are interrupt driven and are capable 


of input/output operation. added capabilities provid- 


ed include: 
a Use of monitor supplied write buffers, 
a Ability to change the size of the write 
buffers, 
a Recess to the monitor's check date utility, 
a Conversion routines to get 18 bit addresses 


from 16 bit sddresses. 


13.0 BIBLIOGRAPHY 


CXQUAAO ‘DEC/X11 USER'S MANUAL’ Sept 1976 

CXQAFDO ‘DEC/X11 PROGRAMMERS'S GUIDE’ Sept 1978 

CXQUBAO '‘DEC/X11 CROSS-REFERENCE MANUAL’ Sept 1978 
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DUBD DEC’x11 SYST 
DEC/x11-1 SYSTEM 


whore 


000000 
000000 
000003 
000005 
000006 
000010 
000012 
000013 
000014 
000016 
000022 
000024 
000026 
000030 
000032 
000034 
0000 36 
000040 
000042 
000046 
000050 
000054 
000056 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000102 
000104 
000104 
000106 
000106 
000110 
000112 
000114 
000116 
000120 
000122 


125 
040 


102 


.SBTTL MODULE HEADER BLOCK 
IOMODX <DUBD 


MODULE 
. TITLE 


DDXCOM VERSION 6 


-LIST 
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>, 172150, 154,4,0,0,1000, 104 ,RBUF ,256. ,256. 
150000,0U8D ,.172150,154,4,0,0,1000,104,RBUF ,256. ,256. 
DUBD DEC/X11 te oe ee MODULE 


f CSESEESEESESESESSSESSOSESESEESESSESESSESESESESEEESESEEEESESESESOSOSESEEEESS 


BEGIN: 


MOONAM: .ASCII /DUBD / ;MODULE NAME. 


XFLAG: 


SR4: 


BYTE 
Ol 


sUSED TO KEEP TRACK OF WBUFF USAGE 
31ST DEVICE ADOR. 


;SWITCH REGISTER 4 


§ SCOSOSSESSESESSSSESESSESESEESEESESSESSSESSESESESESESSSSESSSSEESESSOSESESEESS 


STAT: 


~ 


OPEN 


sSTATUS WORD. 


+MODUL 

;PASS COUNTER. 

3@ OF ITERATIONS PER PASS=1000 

3L0C TO COUNT ITERATIONS 

sLO0C TO SAVE TOTAL SOFT ERRORS 

3L0C TO SAVE TOTAL HARD ERRORS 

3L0C TO SAVE SOFT ERRORS PER PASS 

3L0C TO SAVE HARD ERRORS PER PASS 

3@ OF SYS ERRORS ACCUMULATED 

:4O0LDS RANDOM @ WHEN wt MACRO IS CALLED 


;ADDR OF 

sCONTENYS OF CSR. 

sADDR OF BAD DATA, OR 

;STATUS REG CONTENTS. 

sTYPE OF ERROR 

sEXPECTED DATA. 

sACTUAL DATA, 

sRESTART ADDRESS AFTER END OF PASS 
;WORDS TO MEMORY PER ITERATION 
sWORDS FROM MEMORY PER ITERATION 
;0 OF INTERRUPTS PER ITERATION 
sMODULE IDENTIFICATION NUMBER=104 


SEQ 0015 
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MODULE HEADER BLOCK 


007126' 
000000 


MODSP : 


“LIST 
“ENOR 


SPSIZ 


aha 
Le 

SEQ 0014 
Page 4.1 


sREAD BUFFER VIRTUAL ADDRESS 
;RE9D BUFFER PHYSICAL ADDRESS 


Cc 
sCDATA/DATCK WORD COUNT 
sRESERVED FOR FUTURE USE 
sMODULE STACK STARTS HERE. 


jPOCOCOEOSESESEESEOOEEEEESEEESEEESOESESEESESEESOSSESESESESSSSOSESOSESESS 
5 OCCOROREREEESESESSESESESESESESEESESESESSEEESSESESSSESESESESESEESESESEOES 
.SBTTL MODULE STORAGE AREA 

VERSION 1.0 
VERSION 1.1 


VERSION 2.0 


CMPLEN: . 


CMPVIR: 
CMPACK; 


VA; 
PA; 


VERSION 3.0 


sNO DISK TRANSFER O = NO DISK TRANSFER, 1 = DO DISK TRANSFER 
REPORT ERROR AS THEY OCCUR O = REPORT, 1 = DON'T REPORT 


FOR RELEASE 

NO LONGER TEST AFTER STEP 4 

NO LONGER WAIT FOR INTERRUPT AFTER SENDING MSCP AVAILABLE COMMAND 
USE BIT 9 IN SR1 FOR DUAL PORTING. (DON'T SEND MSCP AVAILABLE 
COMMAND IF WE WANT JUST SEQUENTIAL OR RANDOM ACCESS MODE -- 

IN on ee ONLY SEND ONLINE COMMAND ONCE DURING PASS UNLESS 


DUAL PORT MODE) 
KDASO-@ SUPPORT ADDED 


T ERRORS ON END OF PASS O = + yg = DON’T REPORT 


s;DUAL PORT 0 = NO DUAL PORT, 1 = DUAL 
sRANDOM (NOT SEQUENTIAL) DISK ADORESSING 0 = SEQUENTIAL, 1 = RANDOM 


sNO DA 


Noo oO wr oo oo 


oo 
& 


TA COMPARE O = DO DATA COMPARE, 1 = DON’T DO DATA COMPARE 


: CONTROLLER POLLING REG 
; CONTROLLER STATUS REG 


sCOMMAND INTERRUPT INDICATOR 
sRESPONCE INTERRUPT INDICATOR 


sMESSAGE RING 
;COMMAND RING 


sCOMMAND REFERENCE NUMBER 


sRESPONCE PACKET LENGTH 
sRESPONCE PACKET VIRTUAL CIRCUIT 
sRESPONCE PACKET 


;COMMAND PACKET LENGTH 
sCOMMAND PACKET VIRTUAL CIRCUIT 
;COMMAND PACKET 


:;GENERIC VIRTUAL ADDRESS FOR GETPA 
sGENERIC PHYSICAL ADDRESS 





———— — ques 


manne 


———— eam - - — - - 


SEQ 0015 
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000446 


000000 
000000 
000000 
000000 
000000 
000000 
000017 
000017 


002260 
177777 


33338888 


EA: . WORD 
RBFFEA: .WORD 
WBFFEA: .WORD 
NUM; . WORD 
OLDPA: .WORD 
OLDEA: .WORD 
PRTNUM = 15. 
PRNMSG: .WORD 
TIMER = 1200. 
EXPAV: .WORD 
ADR1: .BLKB 
BYTE 
ADR2: .BLKB 
BYTE 
ADRS: .BLKB 
.BYTE 
ADR4 ; .BLKB 
ADRS: .BLKB 
BYTE 
ADRE : -BL 
BYTE 
ADR7: BL 
BYTE 
ADRS: BL 
BYTE 
-EVEN 


OPEN 


ooo oo 


177777 


OAOAM*OMNOV*oanonoroe 


sGENERIC EXTENDED ADDRESS 


sREAD BUFFER EXTENDED ADDRESS SAVE AREA 
;WRITE BUFFER EXTENDED ADORESS SAVE AREA 


sADDRESS USED IN OTOA 

;THE OLD PHYSICAL ADDRESS 

s;THE OLD EXTENDED ADDRESS TO CHECK IF 
i CONTROLLER WILL BE REINITEC 


sPRINT MESSAGE EVERY 15TH TIME 

sPRINT WORD SAVES THE VALUE TO CHECK FOR WHEN 

; THE NEXT TIME AN END OF PASS MESSAGE IS WRITTEN 
; TIMER VALUE TO WAIT 2-3 SECONDS AFTER DAP COMMAND 


;EXPECTING AN AVAILABLE ATTENTION MESSAGE = 0 
;NOT EXPECTING AN AVAILABLE ATTENTION MESSAGE = 177777 
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MORE MODULE S 


COO@raDy Sutwor 
$ 


od 
~ 
~ 
So 


003300 


000001 
000000 
000000 
000001 
000000 
000000 


005670 
000004 


000000 000001 
177777 «#177777 
177777) «177777 


-—— ee ee ee EE ee ee ase -—- 


Ee 


.SBTTL MORE MODULE STORAGE 


;00 NOT CHANGE THE ORDER OF THE 
;NEEDED 


TIMOUT = 


FOR MAP 22 ROUTINE 


g 555858 2 25 55 5558 


RLIM = 4 


TABLEW: 


TEND: 


preesnan a 


oo oo oo°o°o 


ooroor 


177777 


 _— hci... Ol LL LLL LLL LLL LLL OLE Se 


Page 5 


NEXT 4 LOCATIONS 


;CURRENT SECTOR LO ORDER ADDRESS 
sCURRENT SECTOR HI ORDER ADDRESS 


;UNIT SIZE LO ORDER LIMIT FROM ONLINE CMND 


s;UNIT SIZE HI ORDER LIMIT 


34K - 1200 = MOST WORDS MAITW CAN TAKE 


sDEVICE TO TEST 

;UNIT — 

;NUMBER OF TRIES 

‘BIT geo aay SELECTS THE PORT 
;SAVE UNIT FLAGS 

3; TEMPORARY WORK AREA 


;TIME OUT GADGE 
sRETRY LIMIT 


; TABLE ENTRY UNITNO,PORTID 
;CURRENT LAST TABLE ENTRY 
sREST OF TABLE 

;END MARKER 


;FOR HARD AND SOFT ERRORS 
;EACH ENTRY OF THE TABLE PO?NTS TO 


; THE CORRESPONDING ENTRY OF S. 
; THIS IS USED IN HRDER € SOFER 


SEQ 0016 


<__ oe oe ee LT -_--— oro EE ~ — - —<— - ——<— 


Fe 
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MODULE PRIVATE DATA 


SEQ 0017 


.SBTTL MODULE PRIVATE DATA 


1 

2 

3 009001 BITOO = 1 

4 06002 BITO1 = 2 

5 BITO2 = 4 

6 000010 BITOS = 10 

7 000020 BITO4 = 20 

8 000040 BITOS = 40 

% 000100 BITO6 = 100 

10 BITO7 = 200 

11 000400 BITOS = 400 
12 001000 BITO9 = 1000 
15 002000 BIT10 = 2000 

14 004000 BIT11 = 4000 
15 010000 BITi2 = 10000 
16 020000 BIT13 = 20000 
17 040000 BIT14 = 40000 
2 100000 BIT15 = 100000 
20 3 
os : ERROR BITS 

; 

23 000000 ERR.O = O sNOT DEFINED 
24 000001 ERR.1 = 1 ;DATA ERROR 
25 000003 ERR.3 = 3 ;CONTROLLER NOT READY 
26 000006 ERR.6 = 6 sDRIVE NOT READY, OFF LINE OR NON EXESTENT 
27 000032 ERR.32 = 32 ;NPR ERROR 
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CONTROLLER BIT DEFINITIONS 


O@rneyvlSutrr 


000377 


Ge 


.SBTTL CONTROLLER BIT DEFINITIONS 
; SA REGISTER UNIVERSAL READ BITS 
SA.S1= 004000 

SA.S2= 010000 

SA.S3= 020000 

SA.S4= 040000 

SA.ERR= 100000 

; SA REGISTER ERROR STATUS BITS 
SA.ERC= 003777 

; SA REGISTER STEP ONE READ BITS 


;3SA.CTP= 003400 
002000 


; SA REGISTER STEP ONE WRITE BITS 
SA.VEC= 000177 


; SA REGISTER STEP TWO READ BITS 


SA.VCE= 000177 
Sa. INE= 000200 


; SA REGISTER STEP TWO WRITE BITS 


SA.PRG= 000001 
; SA REGISTER STEP THREE READ BITS 


SA.RSE= 000017 
SA.CME= 000360 


; SA REGISTER STEP THREE WRITE BITS 


SA.LFC= 040000 

; SA REGISTER STEP FOUR READ BITS 
SA.MCV= 000377 

; SA REGISTER STEP FOUR WRITE BITS 
SA.GO= BITO 


SEG 0018 


sSTEP 1 STAIUS BIT 
sSTEP 2 STATUS BIT 
;STEP 3 STATUS BIT 
;STEP 4 STATUS BIT 
sERROR INDICATOR 


;ERROR CODE 


sCONTROLLER TYPE 
NON SETTABLE INTERRUPT 
22 BIT ADDRESS BUS 
DIAG BIT IN SA REGISTER 
MAPPING BIT 
SPECIAL MODE BIT FOR KDASO-@ 


oe ee «= & oF 


INTERRUPT VECTOR (DIVIDED BY 4) 
INTERRUPT ENABLE DURING INITIALIZATION 
MESSAGE RING LENGTH 

COMMAND RING LENGTH 


; INTERRUPT VECTOR ECHO 
s INTERRUPT ENABLE ECHO 


sLOW ORDER MESSAGE RING BYTE ADDRESS 
;ENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 


sRESPONCE RING LENGTH ECHO 
;COMMAND RING LENGTH ECHO 


sHIGH ORDER MESSAGE RING BYTE ADDRESS 
;LAST FAILURE CODE REQUEST 


; CONTROLLER MICROCODE VERSION 


:;GO BIT TO START CONTROLLER FIRMWARE 





mee <a _ ~~ —— 


———— ee ee ee oe ian 


eee we eee ee _—* - a . ~ —_—-- 


He 
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COMMAND /MESS 
1 
e 
3 100000 
4 040000 
5 
6 
7 
8 000010 
9 000060 
10 
11 000000 
12 000002 
13 000004 
14 
i5 000276' 
16 000356' 


—s es 


AGE DESCRIPTOR BIT DEFINITIONS 


.SBTTL COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 
RG.OWN= BIT15 


RG.FLG= 


BIT14 


;SET WHEN CONTROLLER OWNS RING 
sFLAG BIT 


;OFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 


HC .SIZ= 
PKTSIZ= 


8. 
46. 
9. 
2. 
4. 
6. 


RSPACK 
HC .RPK «ePKTSIZ 


;SIZE OF HOST COMM AREA IN BYTES 
sSIZE OF PACKETS IN BYTES 


sRESPONCE RING START 

sRESPONCE RING CONTROL WORD 
sCOMMAND RING START 

s;CONTROL RING CONTROL WORD 
s;START OF RESPONCE PACKET BUFFER 
;START OF COMMAND PACKET BUFFER 


SEQ 0019 


SEQ 0020 
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COMMAND PACKET OPC 


i 
e 
3 000001 
4 000020 
5 000010 
6 000021 
7 000040 
8 000013 
9 000022 
10 000023 
il 000002 
12 000003 
13 000011 
14 000041 
15 000024 
16 
17 000012 
18 000042 
19 000030 
20 000031 
21 
22 000100 
23 000101 
24 000102 
25 000102 
26 
27 
26 


.SBTTL COMMAND PACKET OPCODES 


OP .ABO= O01 ;ABORT COMMAND 
OP .ACC= 20 sACCESS COMMAND 
OP .AVL= 10 sAVAILABLE COMMAND 
oP.CCD= 21 s;COMPARE CONTROLLER DATA COMMAND 
-CMP= 40 s;COMPARE HOST DATA COMMAND 
OP .DAP= 13 sDETERMINE ACCESS PATHS COMMAND 
OP .ERS= 22 sERASE COMMAND 
OP.FLU= 25 ;FLUSH COMMAND 
oP .GCS= 02 ;GET COMMAND STATUS COMMAND 
OF .GUS= 03 ;GET UNIT STATUS COMMAND 
OP .ONL= 11 ;ONLINE COMMAND 
OP.RD= 41 sREAD C 
OP .RPL= 24 ;REPLACE COMMAND 
OP.SCC= 04 ;SET CONTROLLER CHARACTERISTICS COMMAND 
OP .SUC= 12 ;SET UNIT CHARACTERISTICS COMMAND 
OP.WR= 42 ps COMMAND 
-MRD= 30 AD COMMAND 
OP .MWR= 31 {MATNTENANCE WRITE COMMAND 
OP .END= ;END PACKET FLAG 
OP.AVA= 100 sAVAILABLE ATTENTION MESSAGE 
OP .ERL= 101 ;ERROR LOG ATTENTION MESSAGE 
OP .SHC= 102 ;SHADOW COPY COMPLETE ATTENION MESSAGE 
OP .ACP= 102 ;ACCESS PATH ATTENTION MESSAGE 


;NOTE: END PACKET OPCODES (ALSO CALLED ENDCODES) ARE FORMED BY ADDING THE END 
OPCODE. THE UNKNOWN COMMAND 


;PACKET FLAG TO THE COMMAND 
;JUST THE END PACKET FLAG IN ITS OPCODE FIELD. 


END PACKET CONTAINS 





eee rn ee ec -_——— we —— eo 





—_——_ —_——=— - ———— = 


Je 


SEQ 0021 | 
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COMMAND MODIFIERS | 

: _SBTTL COMMAND MODIFIERS 
2 
3 040000 .CMP= 040000 ; COMPARE 
4 100000 MD.EXP= 100000 ;EXPRESS REQUEST 
5 010000 MD.ERR= 010000 :FORCE ERROR 
b 004000 MD. SCH= ;SUPPRESS CACHING (HIGH SPEED) 
7 2000 -SCL= 002000 ;SUPPRESS CACHING (LOW SPEED) 
4 001000 MD.SEC= 001000 ; S ERROR CORRECTION 
9 000400 MD.SER= 000400 ; SUPPRESS ERROR RECOVERY 
10 000200 MD. SSH= ; SS SHADOWING 
11 000100 MD.WBN= 000100 ;WRITE-BACK (NON-VOLATILE) 
12 000040 MD.WBV= 000040 ;WRITE BACK (VOLATILE) 
13 000001 MD.SPD= 000001 ; SPIN-DOWN 
14 000001 MD.FEU= 000001 ;FLUSH ENTIRE UNIT 
15 000002 MD.VOL= 000002 ;VOLATILE ONLY 
16 000001 MD.NXU= 000001 ;NEXT UNIT 
1 
18 .SBTTL END PACKET FLAGS 
1 
20 000200 EF .BBR= 000200 ;BAD BLOCK REPORTED 
21 000100 EF .BBU= 000100 ;BAD BLOCK UNREPORTED 
22 000040 EF .LOG= 000040 ;ERROR LOG GENERATED 
23 000020 EF .SEX= 000020 ;SERIOUS EXCEPTION 
25 
26 .SBTTL UNIT FLAGS 
28 000001 UF .CMR= 000001 ;COMPARE READS 
29 000002 UF .CMW= 000002 ;COMPARE WRITES 
30 010000 UF .RPL= 010000 SHOST INITIATED BAD BLOCK REPLACEMENT 
31 040000 UF .INA= 040000 ;INACTIVE SHADOW SET UNIT 
32 UF .RMV= 000200 ;REMOVEABLE MEDIA 
33 004000 UF .SCH= 004000 ;SUPPRESS CACHING (HIGH SPEED) 
34 002000 UF .SCL= 002000 ;SUPPRESS CACHING (LOW SPEED) 
35 000040 UF .WBN= 000040 ;WRITE-BACK (NON-VOLATILE) 
36 020000 UF .WPH= 020000 ;WRITE PROTECT(HAROWARE ) 
37 010000 UF .WPS= 010000 ;WRITE PROTECT(SOFTWARE OR VOLUME) 
38 UF .576= ;576 BYTE SECTORS 


ee ——, tsa LLL: LLL LLL 





Ke 


SEQ 0022 
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CONTROLLER FLAGS 


O@enaeuvLuwufur 


—_— ———— ee 


.SBTTL CONTROLLER FLASS 


CF .576= 


000200 
000100 
000040 
000020 


000002 
000001 


sENABLE AVAILABLE ATTENTION MESSAGES 
sENABLE MISCELLANEOUS ERROR LOG MESSAGES 
s;ENABLE OTHER HOST’S ERROR LOG MESSAGES 
;ENABLE THIS HOST'S ERROR LOG MESSAGES 


; SHADOWING 
:576 BYTE SECTORS 


.SBTTL COMMAND PACKET OFFSETS 


GENERIC COMMAND PACKET yp LS 


;COMMAND REFERENCE NUMBER 
;UNIT NUMBER 


; OPCODE 

‘ MODIFIERS 

;BYTE COUNT 

;BUFFER DESCRIPTOR 

;BUFFER‘'S PHYSICAL ADDRESS (P.BUFF ) 

;BUFFER'S EXTENDED ADDRESS (P.BUFF+2) 

;LOGICAL BLOCK NUMBER 

;SOFTWARE WORDS 

ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
;OUTSTANDING REFERENCE NUMBER 


ONLINE AND SET UNIT atte mag G3 COMMAND PACKET OFFSETS: 
;UNIT FLAGS 

sHOST IDENTIFIER 

;UNIT IDENTIFIER 

;ERROR LOG FLAGS 

SHADOW UNIT 

;COPY SPEED 


REPLACE COMMAND PACKET OFFSETS: 
;REPLACEMENT BLOCK NUMBER 


SET CONTROLLER eateries Barton PACKET OFFSETS: 
; CONTROLLER FLAGS 
;HOST TIMEOUT 
SUSE FRACTION 
s;QUAD-WORD TIME AND DATE 
MAINTENANCE READ AND as COMMAND PACKET OFFSETS: 


GI 
; REGION OFFSET 


a . 
ee 


—— ee ew ree 


Le 


DUBD DEC/X11 SYSTEM EXERCISER M MACRO VO5.01b Thursday 20-Sep-84 10:17 Page le 
END PACKET OFFSETS 


SEG 0023 


1 .SBTTL END PACKET OFFSETS 
2 
* GENERIC END PACKET OFFSETS: 
4 000000 P.CRF= 0. ;COMMAND REFERENCE NUMBER 
5 000004 P.UNIT= 4. ;UNIT NUMBER 
é 000010 P.OPCD= 8. ;OPCODE (ALSO CALLED ENDCODE) 
7 000011 P.FLGS= 9. ;END PACKET FLAGS 
8 000012 P.STS= 10. sMODIF IERS 
9 000014 P.BCNT= 12. ;BYTE COUNT 
10 000034 P.FBBK= 28. ;FIRST BAD BLOCK 
11 000040 P.SFTW= 32. ; SOFT 
12 
13 GET COMMAND STATUS END PACKET OFFSETS: 
14 000014 P.OTRF= 12. ;OUTSTANDING REFERENCE NUMBER 
15 000020 P.CMST= 16. ;COMMAND STATUS 
17 GET UNIT STATUS END PACKET OFFSETS: 
18 000014 P.MLUN= 12. ;MULTI-UNIT CODE 
19 000016 PLUMFL= 14. ;UNIT FLAGS 
20 000020 P.HSTI= 16. ;HOST IDENTIFIER 
21 000024 P.UNTI= 20. ;UNIT IDENTIFIER 
22 000040 P.SHUN= 32. ;SHADOW UNIT 
23 000042 P.SHST= 34. ;SHADOW STATUS 
24 000044 P.TRCK= 36. ;TRACK SIZE 
25 000046 P.GRP= 38. ;GROUP SI 
26 000050 P.CYL= 40. ;CYLINOER SIZE 
27 000054 P_RCTS= 44. ;RCT TABLE SIZE 
28 000056 P.RBNS= 46. ;RBN / TRACK 
29 000057 P.RCTC= 47. sRCT COPIES 
31 ; ONLINE AND SET UNIT CHARACTERISTICS 
32 000014 P.MLUN= 12. :MULTI-UNIT CODE 
33 000016 P.UNFL= 14. ;UNIT FLAGS 
34 P.HSTI= 16. ;HOST IDENTIFIER 
35 000024 P.UNTI= 20. ;UNIT IDENTIFIER 
36 000040 P.SHUN= 32. ;SHADOW UNIT 
37 000044 P.UNSZ= 36. ;UNIT SIZE 
38 000050 P.VSER= 40. ; VOLUME SERIAL NUMBER 
40 SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 
41 000014 P.VRSN= 12. :MSCP VERSION 
42 000016 P.CNTF= 14. ;CONTROLLER FLAGS 
43 000020 P.CTMO= 16. ;CONTROLLER TIMEOUT 
44 000022 P.CNCL= 18. ;CONTROLLER COMMAND LIMIT 
45 000024 P.CNTI= 20. ;CONTROLLER ID 
46 000034 P.MeDI= 28. ;MEDIA TYPE 
“? 000042 .SHST= 34. ;SHADOW STATUS 
“9 ;ERROR LOG ATTENTION MESSAGE PACKET OFFSETS 
51 000000 P.CRF= 0. ;COMMAND REFERENCE NUMBER 
52 000004 P.UNIT= 4, ;UNIT NUMBER 
53 000006 P.CNT= 6. COUNT 
54 000010 P.OPCD= 8. ; OPCODE 
SS 000011 P.FLGS= 9. ;ERROR LOG FLAGS 
000012 P.SZ0F= 10. ;SIZE OR OFFSET 
S? 000014 P.LGDT= 12. ;START OF ERROR LOG DATA 


--— 
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ERROR LOG FLAGS 


OW@enouvsSutor 


ee ee ee 





Me 


.SBTTL ERROR LOG FLAGS 
EF .FRS= 000200 
EF .LST= 000100 
EF .MIS= 000001 


;ERROR LOG MESSAGE OFFSETS 


;STATUS AND EVENT COE DEFINITIONS 


ST.MSK= 37 
5T.SUB= 40 


0 
i 
2 
3 
4 
5 
6 
S 7 
ST.DAT= 10 
i1 
12 
13 
37 
: 
3 SUBCODES FOR ST.OFL 


; 
SC.NVL = 40 


SC.IOP = 100 
SC.0IS = 400 


SC.DUP = 200 


: 
; SUBCODES FOR ST.DRV 


; 
SC.STO = 40 
SC.INV = 100 


;FIRST PACKET 
sLAST PACKET 
sMESSAGE MISSING 


;EVENT CODE 

;SLOT NUMBER 

;CONTROLLER IDENTIFIER 
;CONTROLLER SOFTWARE REVISION 
;CONTROLLER HARDWARE REVISION 


; SECTOR 
; VOLUME SERIAL NUMBER 
sEVENT DEPENDENT DATA 


sSTATUS / EVENT CODE MASK 
;SUB-CODE MULTIPLIER 


3C 

; UNIT -OF FLINE 

; UNIT-AVAILABLE 
ERROR 


;MEDIA 
;WRITE PROTECTED 


;DATA ERROR 

sHOST BUFFER ACCESS ERROR 
;CONTROLLER ERROR 

;DRIVE ERROR 

;MESSAGE FROM AN INTERNAL DIAGNOSTIC 


:NO VOLUME MOUNTED 

; OR DRIVE DISAVLED VIA RUN/STOP SWITCH 
s;UNIT INOPERATIVE 

;UNIT DISABLED BY FIELD SERVICE 

; OR INTERNAL DIAGNOSTIC 

;DUPLICATE UNIT NUMBER 


:;SDI RESPONCE TIME OUT 
; INVALID SDI RESPONCE 
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| 
| 


MODULE CODE 
1 .SBTTL MODULE CODE 
2 | HROReSSSESEEEEEEEESERESERSESESESERESEREESEEEEEEEEEEEEEEEEEEEEEREEEEREEES 
3 : ; 
4 ; INIT VALUES ; 
5 ; INIT CONTROLLER ; 
6 ; XFER TO ye ; 
7 F FOR J = 1.CYCLE LIMIT ; 
8 : F MATTENANCE WRITE ; 
9 ; MAITENANCE READ $ 
10 F CHECK DATA? ; 
11 $ ; 
12 3 NEXT J ; 
13 8 T FOR J = 1,CYCLE LIMIT ; 
14 3 GET UNIT STATU US ; 
15 $ IF DRIVE IS NOT AVAILABLE, WAIT UNTIL IT IS $ 
16 H DRIVE THERE? ; 
17 $ F DROP ; 
18 ; ALL DRIVES DROPPED? ; 
19 3 T DROP MODULE : 
20 ; EF coe 
21 ’ T ONLINE , 
22 4 ONLINE? $ 
23 ; T PICK BLOCK - IF RANDOM, GET RAND @ MOD X ; 
24 ; ELSE INCREMENT : 
25 H IF LBN > LIMIT THEN LGN <- O ; 
26 : WRITE ; 
27 ; READ ; 
28 H CHECK DATA ? ; 
29 ; T CHECK ; 
30 $ AVAILABLE DRIVE(1) ; 
31 $ F TRY TO BRING ONLINE AGAIN : 
. ; NEXT J ; 

; $ 

= jPREERERESRESRERERSSESSSESSSASEEESESESESESSSSESSSSESESESESERESESES ESSE ESSERE 
5 

36 

4 | PRRESEESEEEESESSSSESESSEESEESERSSSESEESSESSSSSESSSESSESELESSSESSSESS SEES ESS 

os ; START CODE ; 

; : 
41 3 IF THE CODE IS RESTARTED, CLEAR THE OLD ADDRESSES SO THE 3 
ry ; THE CONTROLLER WILL GET REINITED. 

; ; 
on [PRS RPheSSERSSEEEEESESESESSSESESESSEESESESSESSSSSSSRESESSESESSSESESESESS 
46 000660 START: 

47 000660 005227 177777 INC @-1 ;FIRST TIME THRU HERE? 

48 000664 001006 BNE 1$ ;BR IF NO 

49 000666 042767 000002 177122 BIC @SR.XFR,SR1 300 NOT ALLOW DISK TRANSFERS 

50 000674 104403 000000' 005352’ MSGN$ , BEGIN, WARN1 ;ASCII MESSAGE CALL WITH COMMON HEADER 

S51 000702 032767 000002 177106 1%: BIT @SR.XFR,SR1 ;WILL CUSTOMER DATA BE OVERWRITTEN? 
S52 000710 001404 BEQ 2$ ;BR IF NO 

$3 000712 104403 000000‘ 005356’ MSGN$ , BEGIN, WARN2 ;ASCII MESSAGE CALL WITH COMMON HEADER 

54 000720 000403 BR 3$ 3 

55 000722 2s: 

= ponte 104403 000000' 005362’ es MSGN$ , BEGIN, WARNS sASCII MESSAGE CALL WITH COMMON HEADER 


64 


—————_ ee eS ——— .- - 
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MODULE CODE 


005067 
012767 
012767 
016767 
005067 
012767 
005067 
104417 
016767 
005067 
016767 
062767 
005067 
005067 


177210 
177777 


000002 
177424 


177422 


177522 
177512 
177622 


177626 


177560 


177232 
177224 


CLR COERCT 

MOV 0177777, EXPAV 
MOV OPRTNUM, 
MOV OvI01,OvICE 
CLR TABLEW 

CLR CMOREF 
RAND$ ,BEGIN 

MOV R » SECL 
CLR 

MOV ADDR , SAREG 
ADD @2,SAREG 
CLR OLOPA 

CLR OLDEA 


;CLEAR DATA CHECK ERROR COUNT 
sNOT EXPECTING _ INTERRUPT 
sINITIALIZE PRINT WORD 

sDVICE HAS DESIRED ans SET 

;SET TABLE FOR UAIT 

SET Ln a co Pont I0 FOR UNIT O 
;COMMAND RE 


FOR RESTARTING CINITIAL SECTOR ADDR) 
STORE IN SA REG 

SA REGISTER HAS PROPER ADDRESS 

OLO PHYSICAL ADDRESS CLEARED 

OLD EXTENDED ADDRESS CLEARED 

FOR RESTARTING. THIS WILL FORCE A 
CONTROLLER REINIT TO TAKE PLACE 


SEQ 0026 


~~ ee ee - 


he 


SEQ 90027 
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MODULE CODE 


O@~wOY awtor 


31 
32 


012767 


012777 


104415 
016700 
004 767 
010067 


177376 
000442’ 
177376 
177370 


177356 
177352 


176672 
176700 


177316 


00004 2' 


000044 ° 


000144" 


005314’ 
176564 


000124 ' 


SOSSHEHSHESSESSESSSSESSESSSSSESSESSSESSSESSHSESESESSSESESSESSEEHESHHEESHEENESSETESEEHOHES 


RESTART SEQUENCE 


CHECK THE ADORESS OF THE RINGS TO SEE IF THEY WERE RELOCATED 
IF THEY WERE, REINIT THE CONTROLLER. ; 


GET THE NEW ADDRESSES. IF THE DISKLESS OPERATION IS DESIRED 
THEN DO THE MAITENENCE WRITE AND READ. ELSE DO THE WRITE 
AND READ WITH A ORIVE. 


f PSSSEEESASESESSSEESESSEHSSESESEESSSSSSESESESESSEEESSESSESESSSESESESENESEESS 


RESTRT: 


RESTRe: 


RESTRI: 


1%: 


MOV ORSPONC . VA sD0ID THE RINGS RELOCATE? 

GETPAS ,BEGIN, VA sGET PHYSICAL ADDRESS FROM 16-BIT VA 
CMP PA,OLDPA 31S THE OLD PHYS ADDR = NEW ONE? 
BNE RESTR2 sIF SO, REINIT 

CMP EA,OLDEA 31S THE OLD EXTN ADOR = NEW ONE? 
BEQ RESTR1 sIF NOT, DON’T REINIT 

MOV PA,OLOPA sELSE SET THE OLD RING ADDR 

MOV EA,OLDEA ; AND THE OLD EXTENED ADOR 

JSR PC, INITUO s;AND INIT THE CONTROLLER 

CLR TRY sCLEAR RETRY COUNT 

BIT @SR.SUM,SR1 ;D0 WE WANT THE REPORT? 

BNE é sIF NOT, SKIP THE REPORT 

CMP PRNMSG ..PASCNT 300 WE PRINT? 

BNE i$ sIF PASS COUNT IS NOT = PRINT WORD, SKIP 
ADD @PRTNUM, PRNMSG sPRINT WORD IS INCREMENT 


| OORSCOEEEEESESESESESEESESESESSESSSESESEEESE DES SES ESEEESESSESS 
sCONVERT SOFCNT TO ASCII AND 
sSTORE AT ADR2 

BTOD$s ,BEGIN, SOF CNT , ADR2 


§ PESESSESESESSSESSSSSSSSHESSHOESSESSSEOSSESSSSSESHESSEES ESSE ESSOSS 


CLRB ADR2 +S 


5 SOROSEOESSEEEO SEES OESEEEEEEESESESSOSSSESSEEESEDESEEESESEEEESS 
sCONVERT HROCNT TO ASCII AND 
sSTORE AT ADRS 

BT0D0$ ,BEGIN, HROCNT , ADRS 


f PCESSSESESSESESSSSSESSESESESSSESSSSSSSSESSEESEEESSSEESESESESOEES 


CLRB ADR3 +S 


j OSCSOOSEESEHSESESSESSESSSESESESEESSSESESSESSSSSESESSESESSES OSES 


sCONVERT CDERCT TO ASCII AND 


sSTORE AT ADR1 

BT0D$ ,BEGIN, CDERC? ,ADR1 
| POSOSECEEEEESESEOESEEEEEEEESEESEESOSSEEOEEEOEEEOESESSEEESOOOSEDES 
CLRB ADR1+5 
MSGNS$ ,BEGIN, ERRPAS sASCII MESSAGE CALL WITH COMMON HEADER 
MOV ONTRUPT , VECTOR ;GET VECTOR ADDRESS 

3SET POINTER 
GETPAS$ ,BEGIN, RBUFVA :;GET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 
MOV RBUFEA,RO 3GET EA TO ADJUST 
JSR PC, ASRO4 3GO ADJUST IT 
MOV RO,RBFFEA ;PUT ADJUSTED VALUE IN A SAVE AREA 





eee —_— > - Se —_- . 


- _ CO CT mm — 


—— ae ee 


-_ ———-- - - — — ee ee 


D4 


——- oom _— ——— —. _——- 


SEQ 0026 
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MOOULE CODE 


005067 
032767 
001454 


004767 
005767 
001002 


104410 


104414 
016700 
004767 
010067 
012704 
012703 


*77350 
000002 


000654 ' 
177176 


000000 ' 


001464 
000000 ' 


176536 


177242 


CLR UNITNO 
BIT @SR.XFR,SR1 
BEG MALONC 


;sPRESET UNIT @ 
sDISK XFER??? 
3NO! DO MAINTENENCE (DISKLESS) ROUTINES 


f PSEOSSESESESESEESESESSSESESSSESSEESEESSESESSESESESEESESEEEEESEOSESESSESESASEEESES 


DO THE DISK OPERATIONS 


CHECK TO SEE WHICH PORTS ARE AVAILABLE 


j CSSSESEESEESHSSSSSESEESOESESSSESSSESESSEESESESESESSSESESESESESESESEESEOESS 


JSR PC, SETUP 

TST OVICE 

BNE LOOP 1 

END$ ,BEGIN 3 


sF IND DRIVES/SET UP TABLE 
sELSE, TEST FOR ANY MORE DRIVES 
;IF TRUE, DO A CYCLE 


LOOP1: 
GWBUF$, BEGIN ;GET WRITE BUFFER INFORMATION 
MOV WBUFEA,RO ;GET WRITE BUFFER INFORMATION 
JSR PC ,ASRO4 sADJUST IT 
MOV RO ,WEFFEA sSTORE EA IN SAVE AREA 
MOV @TABLEW,R4 3R4 -> TABLE OF UNITNO AND PORTID 
“—_ MOV 61,R3 3R3 IS AN INDEX TO OVICE 
L : 
BIT R3,OVICE ;HAS THE DRIVE BEEN DROPPED 
BEQ 95 ;IF SO, SKIP THIS ORIVE 
MOV 2(R4),PORTID ;SET UP PORTID 
MOV (R4),UNITNO ;SET UP UNITNO 
; #e¢ DO A DISK CYCLE 
JSR PC,CYCLED 300 A CYCLE FOR DISK OPERATION 
Bcc %§ 3IF SUCCESSFUL, CONTINUE 
” JSR PC ,OROP1 ;IF NOT, DROP DRIVE 
ADO 04 ,R4 sPOINT TO NEXT ENTRY OF THE TABLE 
ASL R3 3R3 POINTS TO NEXT BIT 
CMP @TEND ,R4 ; POINT BEYOND LAST ENTRY? 
BEG 12$ ; IF NOT, THEN TRY AGAIN. 
CMP R3,OVICE ;IF R3 > DVICE THEN DONE WITH ITERATION 
sai BLE LOOP2 ;IF < OR =, LOOP 
ENDIT$ ,BEGIN ;SIGNAL END OF ITERATION. 
sMONITOR SHALL TEST END OF PASS 
aA LOOP1 ;AND DO AGAIN 
j OCSESOEEEESEEESESSEESSESESSSSOSSSEEESESESESSSESESESESESESESSESS LESS OESS 
; MAINTENENCE ROUTINE, OO THE DISKLESS CODE ; 
js OOOOROSSEESESESEEESESODEEOESEEEEESESSESEEEESSESESESSSOSEESDESEESSEEESES 
MALONC: 
GWBUF$, BEGIN ;GET WRITE BUFFER INFORMATTON 
MOV WBUFEA,RO ;GET EA TO ADJUST 
JSR PC, ASRO4 sADJUST IT 
MOV RO, WBFFEA ;STORE EA IN SAVE AREA 
JSR PC, CYCLEL 
ENDIT$ ,BEGIN ;SIGNAL END OF ITERATION. 
s;MONITOR SHALL TEST END OF PASS 
BR MALONC : 





——— el ee ee a ee ee 
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MODULE CODE | 
1 {PSS SSSSESSESSESSESESEEESESSESSESSEESERESEESSEESEESESESEEESEEEEEEEEEEESEEEES TEES | 
2 : $ | 
5 3 INITIALIZE THE CONTROLLER ; 
4 i : 
5 ; DO THE 4 STEPS FOR INITIALIZING THE CONTROLLER. ; 
6 é ; 
7 3 STEP 1 - CHECK FOR ERROR, STEP ; 
a ; SEND VECTOR/4, INTERRUPT ENABLE, RING LEN‘'S = 0 ; 
“4 ; ; 
10 3 STEP 2 - CHECK VECTOR ECHO, INIERRUPT ECHO, ; 
11 3 ERROR, STEP 2 ; 
12 3 SEND PHYSICAL ADDRESS & PURGE = 0 ; 
13 ; $ 
14 3 STEP 3 - CHECK RING LEN = O, ERROR, STEP 3 ; 
7 3 SEND EXTENDED ADDRESS BITS ; 
1 H ; 
17 : STEP 4 - CHECK STEP 4 ; 
4 3 SEND LFAIL = 0 , GO AND BURST ; 
1 ; 
20 | nccosnsecenscenesessnnosssecsooocsecsssocessesesoscssssccsseccocosces 
21 
22 001444 012767 000260’ 176770 INITUD: MOV @RSPONC .VA ;VA -> RSPONC 
23 001452 104415 000000’ 000442’ GETPA$ ,BEGIN, VA ;GET PHYSICAL ADDRESS FROM 16-BIT VA 
24 001460 005004 CLR RS ;R4 IS USED IF AN ERROR IS DETECTED 
25 001462 012702 000001 MOV #1,Re2 3R2 = STEP INDICATOR REG FOR MSG'S 
26 001466 005077 176314 CLR SAD0R ;WRITE TO IP REGISTER TO INIT CONTROLLER 
27 001472 012701 002260 MOV @TIMER ,R1 ;SET TIME OUT LIMIT 
28 001476 017700 176550 1$: MOV @SAREG ,RO 3RO HAS SA REGISTER DATA 
29 001502 032700 100000 BIT @<SA.ERR> ,.RO ;CHECK FOR ERROR 
30 001506 001007 BNE 2s ;IF FOUND, GET OUT OF LOOP 
31 001510 104407 000000’ BREAKS ,BEGIN , TEMPORARY RETURN TO MONITOR.. 
001514 104407 000000’ BREAKS ,BEGIN 3; THEN CONTINUE AT NEXT INSTRUCTION. 
001520 005301 DEC Ri 3 TIME OUT? 
33 001522 0013565 1% 3IF NOT, LOOP 
34 001524 000404 BR 4% 3IF DONE, CONTINUE 
35 001526 012703 004000 2s: MOV @SA.S1,R3 3R3 = STEP 1 BIT 
36 001532 000167 000412 JMP ERROR1 ;IF HERE, ERROR 
37 001536 042700 001140 4%: BIC 0<SA.Q22+SA.MAP+SA.SM>,RO; CLEAR KDASO-Q@ DEPENDENT "wali 
38 001542 022700 004400 CMP @<SA,S1+SA.DIA>,RO ;0I9 DATA COMPARE PROPERLY? 
39 001546 001402 BEQ 5$ 3IF SO, CONTINUE 
a: 001550 000167 000370 JMP ws ;REPORT ERROR 
é 
42 001554 016705 176230 5%: MOV VECTOR ,.RS ee Se GIVEN 
43 001560 006205 ASR RS ;SET TO — VALUE 
44 001562 006205 ASR RS ; = VECTOR/4 
- 001564 052705 100200 BIS 0<SA,INT+BIT15>,R5 he  aeatatl & SET MSB FOR STEP 1 
: ‘ 
47 001570 010500 MOV RS,RO ;STORE RS IN RO FOR SUBROUTINE 
48 001572 012703 004000 MOV @SA.S1,R3 3R3 HAS STEP BIT FOR SUBROUTINE 
49 001576 004767 000244 JSR PC ,SNOSTP ;SEND STEP DATA 
S50 001602 042705 100000 BIC #BITi5,R5 ;CLEAR MSB FOR COMPARE DAT 
51 001606 042700 000200 BIC oBITO7,RO ;WAS BITO7 ONLY BIT SET?, oud BE 
Sz 001612 001404 BEQ 6$ 
$3 001614 052700 010200 81S @<SA.S2+BITO7>,RO ;SET RO TO REPORT THE ERROR 
54 001620 000167 0003520 JMP ERRORS ;REPORT ERROR 
55 001624 016700 176614 6%: MOV PA,RO 3RO GETS PHYSICAL ADDRESS 
56 001630 004767 000212 JSR PC ,SNDSTP ;SEND STEP DATA 


— — aaa 
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ODE 


MODULE C 
57 0016354 


177400 
000274 


176572 
000154 
000162 
000254 


000270’ 
176112 


176510 


000442' 


176316 


BIC @177400,R5 ;HIGH BYTE CLEARED 
CMP RS,RO ;CHECK ECHO DATA 
BEQ 7$ ;IF OK, SKIP 
JMP ERRORS ;IF NOT, REPORT ERROR 
STEP 3 
MOV EA,RO ;sADJUST THE EXTENDED ADDRESS BIT 
JSR PC, ASRO4 ;SHIFT aren ADDRESS BITS FOR * CONTROLLER 
JSR PC .SNDSTP SEND STEP DATA 
MOV —e ;RO -> RING ENVELOP 
TST (RO)>+ 31S THE RING ENTRY = 0? 
BNE ERRORS ;IF NOT, ERROR 
CMP OCMDREF ,RO 31S RO POINT PAST THE RINGS? 
BNE. 8$ s IF » LOOP 
MOV SR2.RO ;RO = BURST ae 
CLC ;cLEAR CARR 
_ RO s ALIGN BURST FOR STEP 4 
BIS @SA.GO,RO ;SET GO BET 
MOV RO, @SAREG S SEND DATA TO ekg ea H DONE 
MOV VA ;GET COMMAND PACKET PA AND EA 


MOV A, COMMND tn ay — IN THE RING 
JSR PC, ASRO4 + HIFT EXTENDED ADDRESS BITS FOR CONTROLLER 
MOV RO, COMMND +2 sMOVE ADJUSTED EA INTO RING 


;GET PHYSICAL ADORESS FROM 16-BIT VA 


MOV @RSPACK , VA ;GET RESPONCE PACKET PA AND EA 
Nada <9 VA ;GET PHYSICAL ADDRESS FROM 16-BIT VA 
MOV A,RSPONC ; STORE ADDRESS IN THE RING 

MOV EA‘RO ;SAVE IN 


JSR PC ,ASRO4 


MOV RO, RSPONC +2 sMOVE ADJUSTED EA INTO RING 

MOV ONTRUPT ,AVECTOR : STORE INTERRUPT ADDRESS IN VECTOR 
CLR TRY ;CLEAR TRY SO ORIVE WILL 

are oc :;GO BACK ONLINE IF NECESSARY 


3 SESSESESEEEESSEEESESEHESESSEEESSOSEEEEEESESESSESESSSESEESEESSSEHESSESSSSSSESESSE 


ASRO4 


ARITHMETIC SHIFT RIGHT REG O FOUR TIMES 
EXTENDED ADDRESS BITS (16 & 17) ARE SET IN BIT POSITION 4 & 5 


RESPECTIVELY. 
INPUT 


RO = UNADJUSTED EXTENDED ADDRESS BITS 
OUTPUT RO = ADJUSTED EXTENDED ADDRESS BITS 


SHIFT RIGHT FOUR TIMES TO REPOSTION THE VALUE 


fOPOEREEEEEEESESESESEESESSESESESESESEEESEEESESSESEEESEESEEESSESESESE SEEDS 


ASRO4; 


ASR RO 
ASR RO 
ASR RO 
ASR RO 


;SHIFT 10 
; SHIFT 4 
; SHIFT 2 
: SHIFT 1 





—E~ 


N RO 
;SHIFT EXTENDED ADDRESS BITS FOR CONTROLLER 


ee - es ee mee ——-——e _—_— 


“g3 
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MODULE CODE 

114 002044 000207 RTS PC ;RETURN 
oo: $ PSSSSOESESEESESESSESESESEESSESSESESSESEESEEESEEEEESEESESEEESEEE EES EH ESES 
117 
118 SEND STEP DATA 
119 8 
120 INPUT: RO HAS DATA TO BE SENT TO CONTROLLER FOR STEP 
121 R3 HAS PREVIOUS STEP FLAG SET 
122 F 
123 OUTPUT: RO HAS DATA SENT FROM CONTROLLER TO HOST FOR ECHO AND NEXT STEP 
128 . R3 HAS CURRENT STEP FLAG SET 
eo jossescsoasccssscscssacsnsnonssssccccscsososssosssssssasanoossassssesees 
137 002046 016701 175736 SNDSTP: MOV VECTOR,R1 
128 002052 012721 002072' MOV @INTA,(R1)+ ‘SET UP INTERRUPT HANDLER ADDRESS 
129 002056 116711 175730 MOVB «BR, (R1) SSET PRIORTITY LEVEL 
130 002062 010077 176164 MOV —s RO, @SAREG ‘SEND STEP1 WRITE FORMMATED DATA 
132 002066 104400 000000° EXIT$,BEGIN EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
134 002072 INTA: 

002072 000004 000000‘ 002100° PIRGs. BEGIN, 3$ ; QUEUE UP TO CONTINUE AT 3$ AND RTI 
136 002100 3$: i 
137 002100 017700 176146 MOV _—s @SAREG,, RO ,GET STEP N FORMATTED DATA 
138 002104 032700 100000 BIT @SA.ERR,RO STEST FOR ERROR 
139 002110 001017 BNE —sCERROR1 SIF NOT OK, REPORT 
140 002112 005202 INC  R2 ‘SET STEP REGISTER 
141 002114 006303 ASL sé ‘RS HAS STEP BIT PROPERLY SET 
142 002116 030300 BIT _—R3, RO WAS STEP N SET? 
143 002120 001002 BNE sé IF SO, CONTINUE 
144 002122 000167 000020 UMP —s« ERROR2 SIF NOT CORRECT STEP, ERROR 
145 002126 040300 4s: BIC _——RB, RO ‘CLEAR THE STEP BIT, FOR COMPARE 
146 002130 000207 RIS sé : RETURN 


o~- ——— elias 


H3 
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CODE 


MODULE 


OOnsoyu fl whore 


010267 


104420 
000475' 


017767 


005372’ 


000454 ' 


176260 


000454’ 


005202’ 


005226’ 


005234' 


eae ROESEEESEESESEEESEEERERESESEESESEESEOEESSESEEESESESEESEESESESESESSEESS 
ERROR 1 

PRINT AN ERROR REPORTED BY THE CONTROLLER DIAGNOSTICS 

ERROR? 

PRINT THE VALUE OF THE SA REGISTER WHEN THE STEP BIT WAS NOT SET 


ERRORS 
PRINT A THE VALUE OF THE SA REGISTER WHEN THE ECHO WAS NOT SET 
CCRRECTLY 


RO -> SA REGISTER 
R2 = STEP COUNT 


THE RETRY COUNT IS INCREMENTED 
IF THE RETRY COUNT > RETRY LIMIT, END MODULE 


INPUT 


OUTPUT 


ERRORS 
RING WASN'T ALL ZERO -> ERROR 
DROP UDBAO 


ec G2 G6 Ge Ge Ge GO G2 Ge G2 Ge GF Ge Ge Se GS GS SF SF GF oF S 


SSHEEHASESESSSESESESEASSHESESESEESSESSESEESESESSESESESSSESSSESSSESESESESESSESESESSESSESESES 


MSGN$ ,BEGIN, ZERO sASCII MESSAGE CALL WITH COMMON HEADER 
END$ ,BEGIN : 
ERRORS: INC Ra 3R4 = 3 FOR ERRORS 
ERROR2: INC R4 3;R4 = 2 FOR ERROR? 
ERROR1: INC R4 ;R4 = 1 FOR ERRORI 
MOV R2,NUM ;STORE STEP REG IN A NUMBER FOR CONVRT 
WOPTTTTTTT TTT TTT TTT itt tit le 
sCONVERT NUM TO ASCII AND 
sSTORE AT ADR2 
OTOAS ,BEGIN. NUM, ADR2 
| SECOSERESESEEESSESSESRESEEESSSESEESESSSDESESE SES ESEESESESESEDES 
MOV @SAREG , NUM ;STORE VALUE IN A NUMBER 
WOPTTTTITOTTTTT Titi ttt et 
;CONVERT NUM TO ASCII AND 
;STORE AT ADR1 
OTOA$ ,BEGIN, NUM, ADR1 
sR RSEOESESAERSESEESESESESESRESSESEESERERERESESERESS ESE SESEEESS 
DEC R4 sERROR 1? 
BNE i$ ;IF NOT, CHECK IF IT IS THE NEXT ERROR 
~ MSGN$ ,BEGIN, INITE1 ;ASCII MESSAGE CALL WITH COMMON HEADER 
DEC R4 sERROR 2? 
BNE 2s ;IF NOT, CHECK IF IT IS THE NEXT ERROR 
a MSGN$ ,BEGIN, INITE2 ;ASCII MESSAGE CALL WITH COMMON HEADER 
DEC R4 sERROR 3? 
BNE 3% ;IF NOT, CHECK IF IT IS THE NEXT ERROR 
MSGN$ ,BEGIN, INITES ;ASCII MESSAGE CALL WITH COMMON HEADER 





47 002242 
48 


002242 
002250 


3$: 
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MODULE CODE 


jPRSREEEESEEEESSEESOEESEREEESESSSESESESESSEESEESEESEEESEE EES ESEES 
sCONVERT ADDR TO ASCII AND 
;STORE AT ADRS 

OTOAS ,BEGIN, ADDR, ADRS : 


{ SESSSESEHESEEESEESSEEESESSEESESSESESSEEEESESESESESESSESSEESESSESEEES 
{I SESSSESHESESESESESESESESESSSEESESESESESEEEESSESEEESESESESESESESEESSEEES 


HRDER$ , BEGIN, NULL 


{ PERESEEEAESSEEEESESEEESEEESEESSESESESESEESSEESEESSESEESESEESSEESESSESEEES 


MSGN$ ,BEGIN, INITER sASCII MESSAGE CALL WITH COMMON HEADER 
INC TRY s INCREMENT RETRY COUNT 

CMP ORLIM, TRY 11S THE ant ~~ EXCEEDED? 

BEQ 6$ sIF SO, END I 

JMP START ;IF NOT, TRY AGAIN 

MSGN$ ,BEGIN, ABORT ;ASCII MESSAGE CALL WITH COMMON HEADER 
END$ ,BEGIN : 


eee ee ” - 


————— er er ee ——$———_——————_—— EE TT 
; 


O@BaOuvVhwfrr 


176174 
000774 
175650 


000614’ 
000001 
000654 ' 


176102 
176102 
000720 


176064 


—— —— EE ne 


176146 


cee oe ere eee - ~ “ ---- ———_— 


J5 


SEQ 0034 
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MODULE CODE 


f PRERSESERESERSESESSEESESEEEESSESESSSESESESESEEESEEESESEEEEEESE SESE EEEEEEEES +e 


SET UP 


GO FIND OUT WHAT DRIVES ARE OUT THERE. 
A TABLE IS FILLED WITH UNIT NUMBERS(MAX IS 16) 


THIS SHOULD ONLY BE DONE AT THE VERY BEGINNING OF RUNNING 
THIS DECX MODULE; THEN NOT RUN AGAIN. 


INPUT: OVICE - APPROPRIATE BITS SET. THE @ OF BITS = 
® OF ORIVES WANTED TO TEST. 
POSITION OF BITS = WHICH DRIVE IN THE SYSTEM IS DESIRED. 


3 SASSHEREREESEASEERSESESESESSEHASESESEAERESESSEEESESESESESSESESESESESESESESESE 


SETUP 
; «ee SET CONTRL CHAR AND WAIT FOR THE ATTENTION MESSAGES 
JSR c.SCCc ;SET CONTROLLER CHARACTERISTICS 
DEC F sONLY SET UP AT BEGINNING OF MODULE 
BNE 19$ ; CUSE DRIVES FOUND AT BEGINNING) 
MOV #1,R3 s INITIAL PORTID VALUE 
MOV @TABLEW,R4 Ra -> TABLEW 
MOV CR4),UNITNO s INITIAL UNITNO IN TABLEW 
1$: MOV UNITNO, CR4) ;UNIT NO SET IN TABLEW;READY TO TEST 
MOV R3,PORTIO sPORT ID SET 
MOV R3,2CR4) sPORTID SET IN TABLEW 
MOV 177777 ,4CR4) s INSERT NEW -1,-1 FOR LAST ENTRY 
MOV 4(R4),6(R4) ; OF THE TABLEW 
MOV €2400, ;WORK = RETRY LIMIT 
3$: JSR PC .GTSTAT ;GET STATUS, GET NEXT UNIT NUMBER 
BCC 7$ 30K, CONTINUE 
DEC WORK ;ELSE IF OFFLINE, DECR aad 
BNE 3$ ;IF COUNT > O, TRY AGAIN 
S$: JSR PC ,.OROP2 ;DROP THE DRIVE 
BR 17 3 ; TRY NEXT UNIT 
7$: MOV P .UNIT+RSPACK , UNI TNO IT NUMBER F RESPONCE PACKET IN UNITNO 


3 UN ROM 
; #e¢ CHECK FOR CASE WHERE THE MORE UNITS THEN DRIVES HAVE BEEN SPECIFIED. 
; #« NEXT UNIT MODIFIER WILL GIVE A DUPLICATE UNIT NUMBER. 
-> TABLE TO FIND DUPLICATE 


MOV @TABLEW,R2 ;R2 
MOV 21.85 3R5 IS TEMP PORTID 
9$: CMP R2, TEND ;REACHED THE BOTTOM? 
BEQ 15% sIF SO, EXIT 
CMP R3,R5 ; REACHED THE LATEST ENTRY? 
BEG 15% ;IF SO, EXIT 
CMP UNITNO, (R2) ;DO0 WE HAVE A DUPLICATE UNIT NUMBER? 
BEQ 13% SIF SO, ERROR 
11$: ADD = 3: IF NOT, POINT TO NEXT POINTER 
ASL 5 
BR 9% ;AND CONTINUE 
13%: MOV (R4),UNITNO ar DRIVE FROM TABLE 
MOV R3,PORTIO 
JSR PC ,.DROPS SAND DROP IT 
BR 17$ 
15%: 
3; e464 
CMP UNITNO,(R4) ;1S THE UNITNO CORRECT? 
BEQ 17$ ;IF SO, CHECK FOR NEXT UNIT 





— << _ a ee ee ee 


KS 


SEQ 003 
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58 002520 016714 176056 MOV UNITNO, (R4) ;ELSE, CORRECT THE UNIT NUMBER IN TABLE 

59 002524 17$: 

002524 006303 ASL ;NEXT PORTID SET 

61 002526 026703 176046 CMP DOVICE,RS 3 DONE ? 

62 002532 100407 BMI 9% VIF R3 > DOVICE, ALL DESIRED DRIVES ARE FOUND. 

63 002534 005267 176042 INC UNITNO ;NEXT UNITNO SET 

64 002540 062704 000004 ADD »R4 ;sPOINT TO NEXT ENTRY TO TEST ar 

65 002544 022704 000654’ CMP @TEND ,R4 ;sPOINT TO END? IF SO, TABLE F 

002550 101276 BHI i$ ;IF R4 NOT REACHED END, GO Test 

67 002552 19%: 

68 002552 000207 RTS PC 

69 

70 Ab ORREEEEEE* TERE EEERESEESEEEEEDEREEESESESEESSESSEEDESESSESEERESESESESEES 

71 ; 

72 3 TSTOFL 

7s ; TEST TO SEE WHAT KIND OF AN OFFLINE CONDITION HAS OCCURED. 

75 posngoncnecssnadnesnessecsseteseeheneneneeeeeeet ee a? 

76 002554 022700 000005 TSTOFL: CMP @ST.OFL,RO ;WAS THE ORIVE FOUND OFFLINE? 

77 002560 001403 19$ CHECK WHAT KIND OF OFFLINE 

78 002562 022700 000015 CMP @ST.ORV,RO ;WAS IT A DRIVE ERROR? -> SOI? 

79 002566 001012 BNE 13% ;IF IT WAS NOT, ERROR (OROP — 

80 002570 032767 000740 175512 10%: BIT @<SC.NVL+SC.DIS+SC. DUP SC. TOP> . P.STS+RSPACK s;WERE ANY OF THESE BITS SET? 

81 VOLUME MOUNTED, UNIT DIABLED BY FIELD SREVICE 

82 OR DUPLICATE UNIT NUMBER OR UNIT INOPERATIVE 

83 002576 001004 BNE 12$ ;IF SO, EXIT 

84 032767 177000 175502 BIT — NVL+SC.OIS+SC. puP+SC. IOP+ST.MSK>,P.STS+RSPACK ; ANY OTHER CATA? 

85 001 BNE 13$ 31 ,» DROP 

86 002610 000241 12$: CLC SCLEAR "CARRY 

87 002612 RTS PC ;RETURN 

88 002614 000261 13%: SEC ;SET CARRY, DRIVE WAS FOUND TO BE OFFLINE 

89 ; OR ANOTHER ERROR 

90 002616 004767 002124 JSR PC ,ERRORH ;REPORT ERROR 

91 002622 000207 RTS PC ;RETURN 


———_— <—< - 


orn 


—_—<— eo 


is 
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W@enOuvsutr 


032767 
001004 


005767 
100443 
000422 


012701 


012767 


001000 


175744 


000010 
001262 


177672 


175574 


175164 


175364 


175650 
175640 


175634 


sPORERESEEEEESESSEESEESESERESESESESESESESSEERESEESESESSESEESSESSEEES SEES 
CYCLE DISK 


DO THE DISK CYCLE 
DO GET STATUS COMMANDS TO ASSURE THAT THE DRIVE 
IS AVAILABLE (FOR DUAL PORTING) 
— DRIVE TO BSE ONLINE 


RUE 
PICK THE BLOCK 
WRITE 


READ 
DATA CHECK 


; 
; 

; 

; 

: 

$ 

: 

MAKE THE DRIVE AVAILABLE 
VE : 

$ 


es e+ ee ee &* Ge Ge Ge @2 Gt Ge Ge Ge Ge Ge 


ELSE DROP ORI 
5 PRSRAEAEEERSESESESESESSESEEEAERSSSESESEEEESEESEESESESSESSESESEEESEESEDES 
CYCLED: 
BIT @SR .OUA, Sk. ;DUAL PORT? 
BNE 2s ;IF NOT, CONTINUE 
; #e¢ CHECK IF WE DO ONLINE FOR THE FIRST TIME. 
TST TRY ;IF TRY HAS SET MSB, DON’T DO ONLINE 
BMI 16$ ; DON’T DO ONLINE 
BR 10$ ; ELSE DO ONLINE (1ST TIME THROUGH IN THIS PASS) 
3; #o6 
; #@# DO GET STATUS COMMANDS TO ASSURE THE DRIVE IS AVAILABLE TO THE CONTROLLER 
; ##¢ FOR DUAL PORTING. 
3; #e¢ 
2s: V #10,R1 ;R1 = @ OF GET STATUS TO DO 
4$: JSR PC ,GTSTAT 31S THE ORIVE OFFLINE? 
BCC 6% ;IF ALL OK, DO THE CYCLE 
JSR PC, TSTOFL ;ELSE, CHECK IF OFFLINE 
BCS 24$ ;IF IT ERRED, DROP THE DRIVE 
; #e¢ HANDLE OFF LINE ORIVE, WAIT FOR AVAILABLE ATTENTION MESSAGE 
CLR EXPAV s;EXPECT AN AVAILABLE ATTENTION MESSAGE 
BIS @<RG.OWN+RG .FLG> ,RSPONC +2 ;SET RING FOR ATTN MESSAGE 
JSR PC, INTERP ;WAIT FOR MESSAGE 
; 2@ND ATTENTION MESSAGE 
BR 10$ 
6$: DEC Ri ; DONE ? 
BNE 4&3 ;IF NOT DONE, TRY AGAIN 
10%: JSR PC ,ONLINE 300 AND ONLINE COMMAND 
BCS 2s ;IF CARRY WAS SET, TRY AGAIN 
14%: MOV P.UNSZ¢2eRSPACK,UNSZH ;IS THE UNIT SIZE HI ADDRESS 
MOV P .UNSZ+RSPACK , UNSZL ;GET UNIT SIZE/IS IT = 0? 
BNE 16$ ;IF NOT ZERO, CONTINUE WITH ITERATION 
TST UNSZH ;IS UNSZH ALSO 0? 
BEG CYCLED ;IF O, TRY TO BRING ONLINE AGAIN 
; #ee SET MSB OF TRY TO SHOW THAT INITIAL ONLINE IS DONE 
MOV #100000 , TRY 


3 SHEEASEERESEEERESEEESESSEESESESEAEEEEESESEEEESHESEEESESAEESESESSSEESESSEEES 


THE FOLLOWING SEQMENT SETS THE LIMIT FOR THE UNIT SIZE. 
THE VALUE (UNIT SIZE - (WRITE BUFFER SIZE/NORMAL BLOCK SIZE)) 
IS THE LAST SECTOR POSSIBLE TO RIGHT TO. 


——EE - - 


i 





MS 
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113 003132 


016700 


005067 
052767 
000167 


000720 


001000 174770 


001712 


000730 


004000 174744 


000000‘ 000126' 


001000 174724 


001014 


175354 
140000 
001206 


175144 


174656 


{ SSSSSEEESAESESSESSSESSESESSESESSESSESSSSESSSESESSESESSESESESESSESSESESEHEEESEEES 


16$: 


SEQ 00357 


MOV WBUF SZ ,RO ;WBUFSZ IN RO AS A LIMIT 
CLR Rl ;R1i = @ OF BLOCK 
18%: INC Ri ; INCREMENT THE © OF BLOCKS 
SUB $4.9,R0 SDECREMENT A BLOCK 
BPL 18$ ;BR IF > O 
sus R1,UNSZL ; ADJUST ” THE UNIT SIZE 
; #e¢ NOW PICK WHICH BLOCK TO WRITE TO 
JSR PC ,PICKBK ;ELSE SELECT A SECTOR TO TEST 
JSR PC .GTSTAT ;DID WE NOT GET THE DRIVE ONLINE? 
Bcs 2s ;IF WE DID NOT, GOB TO TOP AND TRY AGAIN 
CMP @ST.AVL,RO ;IS IT AVAILABLE ? 
BEQ 2s ;IF SO, GO BACK TO TOP AND TRY AGAIN 
; ee $WRITE TO THE BLOCK SELECTED 
JSR PC WRITE ;sWRITE THE DATA FOR USER DEFINED © OF WORDS 
BCC 19$ ;IF OK, CONTINUE 
BIT @SR .DUA, SR1 ;ARE WE DOING DUAL PORT? 
BNE ;IF YES, RETRY 
JSR PC ,ERRORH ;ELSE, HARD ERROR 
4 ; AND EXIT; BCS 22% ;IF ERROR, EXIT 
3; #e6 READ IT 8 
19%: JSR PC ,READ sREAD A BLOCK 
BcS $ ;IF ERROR, EXIT 
BIT @SR.CMP .SR1 ‘00 fi DATA COMPARE ? 
BNE 20$ ;IF NOT, SKIP THE COMPARE 
; #e@  j##COMPARE DATA 
CDATA$ ,BEGIN, RBUFPA ; REQUEST FOR MONITOR TO CHECK DATA 
.+2 ; IF ERROR, CONTINUE 
20$: BIT @SR .DUA,SR1 ;D0 WE DO AN AVAILABLE? 
BEQ 22s ‘IF NOT(BIT NOT SET) SKIP AVAILABLE 
; eee ##MAKE THE ORIVE AVAILABLE 
JSR PC ,AVAILB ;sRELEASE THE DRIVE 
22%: CLC ;EVERY THING WAS OK 
sWASTE A LITTLE TIME SO OTHER 
; CONTROLLER CAN GRAB DRIVE 
24%: RTS PC ;RETURN 


; #e¢ SUBROUTINE TO WAIT FOR AN INTERRUPT 
; #e¢@ RETURNS AFTER THE INTERRUPT OCCURS 


DOINTR: 
CLR EXPAV " eptiee AN AVAILABLE ATTENTION MESSAGE 
BIS @<RG.OWN+RG.FLG> ,RSPONC+2 SET OWN AND FLAG FOR RESPONCE RI 
JMP INTERP ;WAIT FOR ATTENTION MESSAGE € RETURN 


j OREEEEEEEEESSEEEESESEEESEEESESESEESSEESESERESEESESSEESEAESES ESSE ESSE SEES 


DISKLESS CYC.E 
DO A MAITENENCE WRITE 
AND A MAITENENCE READ 
AND CHECK THE DATA 


5 POHROSEAESESEEESEESEEEEERESESERESEESESESEESESSSESESE FESEESESSS SELES SEERES 


CYCLEL: 
JSR PC ,MAITW 300 A MAINTENENCE WRITE 
JSR PC .MAITR 300 A MAINTENENCE READ 
BIT oSR.CMP,SR1 300 A DATA COMPARE? 


NG 





NS 
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MODULE CODE 


— VCO —_- 


114 003140 
115 003142 

003150 
116 003152 
117 003152 


001004 
104412 000000’ 000126’ 
003152’ 


000207 


21$: 


BNE 21$ 
a 
.¢ 

RTS PC 


;IF NOT, SKIP THE 


COMPARE 
; REQUEST FOR MONITOR TO CHECK DATA 


IF ERROR, CONTINUE 


inne - _- —_— 


b4 


om ee - - —— - 


SEG 0059 
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DUBD 
MODULE CODE 


O@wQYVbutre 


10 


5? 003334 


032767 
001467 


175304 
175300 


175266 


175260 
175256 


175250 
175242 


175226 


1753502 


J SSOSOSESEEHSSESSESSEESSSESESSESSSSESSSSSESESESOSESEESHESESESESSESEEEEEOEES 


PICK A BLOCK TO WRITE TO. 
Ae PICK THE NEXT SEQUNTIAL BLOCK (DEFAULT) OR TAKE ONE AT 


OUTPUT: FILL SECH € SECL (CURRENT SECTOR ADDR) 


PICKBK ; 


RANACC: 


1%: 


2s: 


BIT @SP .SEQ,SR1 ;CHECK SR1 FOR RANDOM ACCESS MODE 
BEQ SEQGACC ;8R IF SEQUENTIAL ACCESS 

RAND$ ,BEGIN 

MOV RANNUM, - (SP ) ;GENERATE THE SECTOR ADDRESS 

RAND$ ,BEGIN 

MOV RANNUM, -( SP) ;sGENERATE THE SECTOR ADDRESS 

ADJUST HI ADDRESS FIRST 

CLC ;CLEAR CARRY FOR ROTATE 

BIC 100000 , (SP) ;CLEAR UPPER BIT MAKES SURE VALUE'S - 
MOV (SP)+,SECH sSTORE IN SECTOR HI ADDRESS 

TST UNSZH 31S THE MAX SIZE 0? 

BEQ 38 sIF 0, GET LOW SECTOR ADDRESS 

UNSZH > O IF CODE FALLS THROUGH HERE 

MOV UNSZH,RO 3RO s MAX VALUE 

COM 3RC COMPLEMENT, NOW FIND MS ZERO 

MOV #100000 ,R1 3;R1 IS INDEX INTO MAX VALUE 

BIT Ri ,RO sHAVE O YET? 

BEG 2s sIF 1ST 0 REACHED, CLEAR REST OF THE BITS 
cic ;CLEAR CARRY FOR ROR 

ROR RL sPOINT TO NEXT BIT 

BR is ;BRANCH TO TEST AGAIN 

BIC R1.RO ;CLEAR REST OF THE BITS 

CLE ;CLEAR CARRY FOR ROR 

ROR R1 sIF RL ROTATES INTO CARRY, R1 = O 
BNE 2s ;IF R1 NOT O, MORE BITS TO CLEAR 

BIC RO, SECH ;CLEAR UPPER SITS OF HIGH SECTOR VUE 
CM SECH,UNSZH ,;IF THE HIGH SECTOR VALUE > MAX VALUE? 
BLT 7$ 3IF <, EXIT 

BEG 4$ ;IF =, TEST LOW ORDER VALUE 

ASR SECH 3SECH = SECH/2 - CAN'T BE > MAX NOW 
BR 7$ sEXIT 

GET LOW SECTOR ADDRESS 

CLR SECH ;CLEAR HI SECTOR SIZE 

TST UNSZL 31S THE HIGHEST POSSIBLE = 0? 

BEQ 6% ;IF TRUE, OON’'T DO LOOP 

Sus UNSZL , (SP) sELSE, SECL = SECL - UNSZL CADUUST) 
Bcc if ;IF UNSZL > SECL,. LOOP 

ADD UNSZL ,( SP) sELSE SUBTRACTED ONCE TOO OF TEN 

BR ; AND ExIT 

CLR sCLEAR LO SECTOR ADDRESS (CIF HIGHEST POSSIBLE * 0) 
MOV (SP)+,SECL ;SAVE LO SECTOR ADDRESS 





_— — ee e+ 
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MOOLA 


003340 


000207 


175220 
175212 


175202 
175176 


175164 
175162 


175214 


175200 


RTS 


PC 


; RETURN 


;GENERATE DISK ADDRESS BY SEQUENTIAL ADDRESSING 


SEQACC: 


163: 
17$%: 


18%: 


SECL 
16% 
SECL .UNSZL 
18% 


s INCREMENT THE SECTOR ADDRE 
;68R IF ZERO on 
sOVER LIMIT? 

BR IF 


3 IF LOWER 

3SKIP THE INCREMENT 

s INCREMENT SECTOR HIGH ADDRESS 
;OVER LIMIT? 

;BR IF LOWE 


Rg 
sRESET THE STARTING SECTOR ADDRESS 
; 


SEQ 0040 





OUBD 
MODUL 


O@exnaeVibautr 


012767 
000407 


012767 
000405 


012767 
036767 
001445 
022767 
001441 


046767 


104421 
000475’ 


105067 


000001 


000002 


000003 
175144 
177777 


175124 


177777 
174732 


000000 ' 
174714 
000000 ' 


000000 ' 


175056 
175026 
175016 


175134 
175132 


175114 


000602’ 


ies —_ —- —_ 


D4 


SEQ 004) 
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E CODE 


{PSS SESESESESHESSSESSSESSESSSESESE SSE SESEESESEEESEHO OEE EEEESEEEESESESEEEEEES 


3 ; 
: 
; OROP A DRIVE 
3 ; 
A DRIVE WOULDN'T RESPOND, DROP IT. SET THIS UP IN DVICE. ; 
$ 
INPUT UNITNO = UNIT NUMBER OF DRIVE TO DROP 
PORTID = BIT SET TO DROP DRIVE 
3 : 
, OUTPUT DVICE HAS A BIT CLEARED. THE BIT POSITION 
REPRESENTS THE DRIVE ; 
PITTI E TTT TTTTOTTTTTTTTTTTTTTT TTT TTT TTT TTT Tet t eee 
DROP 1: 
MOV @1,.NUM 
BR DROPS 
DROP 2: 
MOV @2,NUM 
BR oROP4 
DROPS: 
MOV @3,NUM 
propa: BIT PORTID  OVICE HAS THE DRIVE BEEN DROPPED, DON’T DROP AGAIN 
é 
CMP 0177777, PORTID SIF DRIVE HAS BEEN DROPPED, DON’T DROP AGAIN 
; (WILL ZERO DVICE PREMATURE) 
BEQ 108 ‘IF =, ORIVE HAS BEEN DROPPED -> EXIT ROUTINE 
BIC PORTID,OVICE ;DROP THE DRIVE 
J SOSSSSEESSSESESSESSHSSESSESSSSESSSSSESSESESSSSSESESSESSESSSSSESSSSSS 
;CONVERT UNITNO TO ASCII AND 
SSTORE AT ADR2 
BT0D$ ,BEGIN, UNITNO, ADR2 
s SSSCEESESESSSSESSSSSESSSESESEESESSE SS SSEOSSEEESSSEESSSSSSESESESSOSS 
CLRB ADR205 
f SCSOSSSESESEESOSSSESEESEESSSSESSSSSSSSSESESSESESSSSESSSESESSSESESODS 
;CONVERT PORTIOD TO ASCII AND 
SSTORE AT ADRI 
OTOA$ ,BEGIN, PORTID, ADR1 
§ POCESEESESSESESSOSESSERESSESESESESESESSESSEESSESESESSESESSSSSSSSSSOSSS 
MOV 0177777, 2(R4) ;DESELECT DRIVE SO IT WON'T BE USED AGAIN. 
DEC NUM ;DROPPED FOR WHICH ERROR? 
BNE 18 SIF NOT FOR ERRORS, CONTINUE 
MSGN$ , BEGIN, DRP1 ;ASCII MESSAGE CALL WITH COMMON HEADER 
1: DEC NUM ;WAS UNIT NOT FOUND?(NON EXISTENT UNIT) 
BNE 2$ IF NOT, CONTINUE 
MSGNS , BEGIN, DRP2 ASCII MESSAGE CALL WITH COMMON HEADER 
2s: 
MSGN$ ,BEGIN, DRP3 ASCII MESSAGE CALL WITH COMMON HEADER 
; ACTUAL UNITS FOUND 
108; RTS PC 





--« A A A A OO LL LLL OO A —_——_—— er > ieee _-_——_-— 
. ~~ 


E4 
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47 


——— 


SEQ 0042 


—— a = 


_ 


NF Owenoyvautre 


004767 
012767 
016767 
016767 
016700 
000424 


001066 
000030 
174650 
174320 
174316 


174272 
174272 


174716 
174254 
174502 
000020 
000044 
000001 
177777 


177777 
000322 


174576 
174602 
174572 


174724 


174370 


p POORER ESEESESESSEEHEEEERESEEESESEESEEESEEESESEESEEEESEESEESEROEOEEESO OES 
MAITENENCE READ 


SET UP A PACKET WITH: 

OPCODE € MODIFIER 

REGION ID & REGION OFFSET 

READ BUFFER DESCRIPTOR 
BYTE COUNT 

THEN SEND THE PACKET 
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MOOULE CODE 


oo o o « © © = & SF & 


j PSRESESEESEEESESESSESESSEESESEESESESSESSESESSEESSESESSEESESESESESESSESSESESESESSSES 


MAITR: = 


PC ,CLRPAK 


@0P .MRD,.P .OPCD+CMPACK 
RBFFEA,P.ADEA+CMPACK 
RBUFPA,P .ADPA+CMPACK 


;CLEAR THE PACKETS 
;SET THE OPCODE 
;SET THE BUFFER DESCRIPTOR 


6 
sSTORE THE BUFFER SIZE IN WORDS 
;SET UP THE REST OF THE PACKET 


5 SSOSESESESEEEEESESEESSESESESESEEEEESESESESESESESESESSSESESESESESESESESES 


MAITW: = 


SPREE E EEE 


MOV 
MOV 
MOV 
MOV 
MOV 
JMP 


MAITENENCE WRITE 

SET UP A PACKET WITH: 
OPCODE € MODIFER 

REGION ID & REGION OFFSET 

BUFFER DESCRIPTOR 

BYTE COUNT (EITHER WBUFSZ OR LIMIT IF WBUFSZ > LIMIT) 

THEN SEND THE PACKE 


SSHHESSAESSESSSESSSSESSESSSSESSSESSESSEHSSHSSESESSESHEESSSESEEEESESSESSSESSEESSEES 


WRITE 


T 


WOUF SZ LIMIT 


i$ 

LIMIT ,RO 
MAITP 
WBUF SZ ,RO 


RO 
RO,P.BCNT «CMPACK 
016. ,RSPLEN 


036. ,CMPL 


EN 
#1,P .RGID+CMPACK 
0177777, CMPVIR 
#177777, RSPVIR 


SEND 


;CLEAR THE PACKETS 
sSET THE OPCODE 
;SET THE BUFFER DESCRIPTOR 


3 

31S THE BUFFER SIZE > LIMIT? 
3IF NOT, WBUFSZ IS OK 

;STORE THE BUFFER SIZE IN WORDS 
sAND SKIP 

;STORE THE BUFFER SIZE IN WORDS 
;MAKE IT NUMBER OF BYTES 

;SET WRITE BUFFER SIZE 

3SET RESPONCE PACKET LENGTH 
3SET COMMAND PACKET LENGTH 

;SET REGION ID = 1 

;SET COMMAND VIRTUAL CIRCUIT (-1 FOR DM) 
3SET COMMAND VIRTUAL CIRCUIT 
;SEND THE PACKET 


BO@noyvauwfr 


31 003776 
32 004004 


004767 
012767 
016700 
016767 
016767 
000415 


— ee ee 


000712 
000042 
174166 
174154 
174464 


174330 
174514 
174510 


174422 


174420 
174414 


174316 


174342 
174336 


—_ — - 


G4 
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MOOULE CODE 


———— ie — —~——- 


{POSSESSES SSESEESEEEESESESSSESESSEESESEEESEESERESESEEESEESEESEEEEEEEETEES 


WRITE 


SET UP OP CODE, MODIFIERS,BUFFER SIZE (BYTE COUNT), 
BUFFER DESCRIPTOR (PYSICAL AND ADDRESS ) 
LET READ SET SIMULAR DATA IN THE PACKET: 
DISK ADDRESS AND CYLINDER ID (LOGICAL BLOCK NUMBER), 
THEN SEND THE PACKET. 


EXTENDED 


-* «= o & & & 


Se 


WRITE: JSR 
MOV 
WRITEA: MOV 
MOV 
MOV 
BR 


C,CLRPAK 
OP .WR,P. OPCD-CMPACK 
WBUF SZ, RO 


S 
WBUFPA ,P. ADPA+CMPACK 
i »P . ADEA+CMPACK 


;CLEAR PACKETS 

ISET THE OPCODE 

sSTORE THE BUFFER SIZE IN WORDS 
;SET THE BUFFER DESCRIPTOR(PA) 

SSET THE BUFFER DESCRIPTOR(EA) 

5 


J POSSEESEESESEEEEESEESEEEESEHESESESSESEESSESESESESESESEESESESSEOSESESESS ESS 


RO,P.BCNT «CMPACK 
SECL .P.LBN+CMPACK 


sSET LOGICAL BLOCK NUMBE 


> ; 
; READ ; 
3 ; 
; SET UP OP CODE. MODIFIERS,BUFFER SIZE (BYTE COUNT). ; 
; BUFFER DESCRIPTOR (PYSICAL AND EXTENDED ADDRESS). ; 
; DISK ADDRESS AND CYLINDER ID (LOGICAL BLOCK NUMBER ), ; 
; THEN SEND THE PACKET. ; 
3 ; 
§ POSEEERESEESESESSEEEESESESESEEAESESESEESSESESSESSSSSSESESESEESESSESEESESSESSS 
READ: JSR ° AK ;CLEAR PACKETS 

MOV OP .RD,P .OPCD -«CMPACK SSET THE OPCODE 

MOV f ;STORE THE BUFFER SIZE IN WORDS 

MOV RBFFEA,P . ADEA+CMPACK “ai THE BUFFER DESCRIPTOR 

MOV RBUFPA,P . ADPA+CMPACK 
READA: MOV 032. .RSPLEN SSET RESPONCE PACKET LENGTH 

MOV 032... CMPLEN 3SET COMMAND PACKET LENGTH 

ASL RO SMAKE IT R OF BYTES 

MOV 

MOV 

MOV 

Be 


SECH.P. LON+2 +CMPACK 
SEND 


‘ 
;SEND THE PACKET 


SEQ 0044 


H4 
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MODULE CODE 


10 


BW@noyv autor 


004767 
012767 
012767 
012767 
000462 


004767 
012/767 
012767 
000413 


004767 
012767 
012767 
012767 
012767 
000432 


000564 
000015 
000074 


000534 
000014 


174274 
174166 
174244 


174244 
174136 


174222 
174216 


p PSSEOEESEESEEESESESEESSSEEESSEESESSEESESESSESEESEEESESSEEESEEEEEEESEEESEEEES 


DETERMINE ACCESS PATHS 


; 

‘ $ 
é 
SET UP CODE, GO SEND PACKET 
[seaenacensesenssensensssasanscnsensonsensersenseesesasnsesseesessente 
pap: JSR —«wPC,, CLP CLEAR PACKETS 

MOV SOR DAP P.OPCD«CMPACK 1SET OPCODE 

MOV 060. .RSPLEN SET LENGTHS 

MOV 060. .CMPLEN ; 

BR SEND SSEND THE PACKET 
j SSRSSRESSESESESSESESESESESSESEESSEESESSESESESESSESESSSESSEEESSESSESESEESES ESSE 
Py é 
AVAILABLE PACKET 
t 
: SET OP CODE AND MODIFIERS THEN SEND THE PACKET 
jseeessseeesassennnasesssnonssssssssesssssassecszensssassssonscsccoeees 
AVAILB: JSR —s- PC, CLRPAK ;CLEAR PACKETS 

HOV @0P AVL.P.OPCD+CMPACK SET THE OPCODE 

MOV #12. .RSPLEN SSET RESPONCE PACKET LENGTH 


BR GTSTAA ; SEND THE PACKET 


j SORSEEESEEESESEESSEESESEEEESESESEESEESESESESESSESESESESESESSE SELES ESO SSS 


GET UNIT STATUS 


SET OPCODE AND MODIFIER (FOR THEN NEXT UNIT 
THEN SEND THE PACKET 


$ OS OSSSESESEEESESESEESSESSESSOSEESSESSEEESESSESSESEESESESEEESESSESSESESESESESS 


GTSTAT: ne PC CL ;CLEAR PACKETS 


@0P .GUS,P.OPCD+CMPACK  ;SET THE OPCODE 
MOV oMD .NXU,P .MOD +CMPACK ;CLEAR MODIFIERS 
MOV 048. ,.RSPLEN ;SET RESPONCE PACKET LENGTH 
GTSTAA: MOV #12..CMPLEN ;SET COMMAND PACKET LENGTH 
BR ; SEND THE PACKET 


SEQ 0045 


eee ee ee ee 


7 ————— ane 


O@naneyvilawhre 


004767 
012767 
012767 
012767 
012767 


000415 


004767 
012767 
012767 
012767 


000416 
00004C 


000044 
000011 


174026 
174104 
174112 


{ ORSSESEEESERESESESESSESESESESESSSESSSESEESEEESEEEEEESESEEESESEESESSEEEEEEEDS 


SET CONTROLLER CHARACTERISTICS 
OP CODE AND CONTROLLER FLAG (ENABLE ATTENSION MSGS) 


SCC: 


SET 


14 
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MODULE CODE 


SS ed 


CLEAR nT a HOST TIMEOUT, USE FRACTION, 
THEN SEND PACKET 


OF QUAD WORD 


;SET 


TIME ANDO DATE. 


;SET THE OPCODE 
;SET THE CONTROLLER FLAGS 
; TO ENABLE ATTENTION MSGS 
;SEND THE PACKET 


$PORRESESEEESESEEESESSSESESESSEESEERESESESESESESESESESESSESESESSESSSESESESS 


i 
s POS RSEESEEEESESESESSEESEEESSOEESESESEEESEESSEESESESSSSESEFESSESESESESES 
oe PACKETS 


JSR PC ,CLRPAK 
MOV 032. ,CMPLEN 
MOV 28. ,RSPLEN 
MOV .SCC,P.OPCD+CMPACK 
MOV OCF .AVL ,P.CNTF «CMPACK 
BR SEND 
: 
3 ONLINE 
: 
3 SET OPCODE, y hg UNIT ID, HOST ID 
: SHADOW UNIT, ERROR FLAGS 
3 THEN SEND PACKET 
ONLINE: JSR PC ,CLRPAK 
MOV e32. »RSPLEN 
MOV 036. .CMPLEN 
MOV GOP .ONL .P.OPCD+CMPACK 


T RESPONCE PACKET LENGTH 


;SET COMMAND PACKET LENGTH 
;SET THE OPCODE 


; 
jPESEEEEEEESESEESSESERESESESESEESSESSESESESESSEESESESSESESESESESESEESSESEOEE 


;GO CLEAR THE COMMAND PACKET 
UP COMMAND PACKET LENGTH 
;SET UP RESPONCE PACKET LENGTH 


SEQ 0046 


ee ee ae ee ~ - - — —_— ——-- — 


J4 


SEQ 0047 
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MODULE CODE 
i { PEESSEESESESESSEESSEESESESESESESERESSSESSSHEEHEEEE SHEE EES ESE ERE SESESEE EES 
2 ; 
3 SEND - SEND A PACKET 
4 3 INTERP - WAIT FOR AN INTERRUPT ; 
5 4 s 
6 ; SET UP THE COMMAND REFERENCE NUMBER AND UNITNO IN THE PACKET ; 
7 ; SET OWN, CLEAR FLAG IN THE COMMAND RING (FOR CONTROLLER) $ 
4 : SET OWN & FLAG IN MESSAGE RING (FOR INTERRUPTS BY CONTROLLER) ; 
9 ; AFTER INTERRUPT, MAKE SURE THE PACKET WAS PROCESSED (NO HARD ; 
10 : OR SOFT ERRORS) THEN RETURN TO CYCLED. ; 
11 ; ; 
12 : INPUT: CMPACK IS FILLED EXCEPT FOR CMDREF &€ UNITNO ; 
+ ; INTERRUPT VECTOR AND BR LEVEL ARE ESTABLISHED $ 
1 H 3 
15 : OUTPUT: MSPACK 1S FILLED ; 
16 ; CLEAR CARRY IF COMMAND PACKET WAS OK ; 
. ; ELSE GO DO A HARD/SOFT ERROR ; 
; 
19  sepconsecncecrossseccesesosoccosoosesscnsccossescesoosesesosesosecoees. 
20 004260 005267 174004 ND: INC : C REFERENCE NUMBER 
21 004264 001775 BEQ SEND ;COMMAND REF @ CANNOT = O 
22 004266 016767 173776 174066 MOV CMOREF ,P . CRF «CMPACK ;SET COMMAND REF NUMBER 
23 004274 016767 174302 174064 MOV UNITNO,P . UNIT +CMPACK ;SET UNIT N MBER 
24 004302 042767 040000 173756 BIC ORG .FLG,COMMND +2 ;CLEAR FLAG 
25 004310 052767 100000 173750 BIS ORG . OWN , COMMND + 2 ;SET OWN FOR COMMAND RING 
26 004316 052767 140000 173736 BIS @<RG.OWN+RG.FLG>.RSPONC+2 ;SET OWN AND FLAG FOR MESSAGE RING 
27 004324 005777 173456 TST @ADOR sFORCE POLLING TO PACKET 
28 004330 INTERP: 
By 004330 104400 000000’ EXIT$ .BEGIN s;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
3 
= 004334 NTRUPT: 
3 eeeese ee ee ee Senet Se eee sESeeoGbneonseeaneaeneceaanonoonzoaeoeoeoaoe2er2er2q2 2220° 
004334 000004 000000' 004342’ PIRG$ ,BEGIN,1$ 3; QUEVE UP TO CONTINUE AT 1$ AND RTI 
3 eeeaeaeseenaona@anoooaoonsoanaanaoanacaaonwaeoaoaanoesneaecea2e2e2ee2e297e° ~~ aa aoaenaeecuaeWuex a eweaeneeeness «= 
33 $ 
34 004342 1%: 
35 004342 005067 173710 CLR RINTR ;CLEAR INTERRUPT FLAG 
36 004346 022767 000100 173732 CMP @0P .AVA,P .OPCD+RSPACK ;WAS AN AVAILABLE ATTENTION RECIEVED? 
37 004354 001524 BEQ 15% sIF IT WAS, EXIT 
38 004356 022767 000102 173722 CMP @0P .ACP ,P .OPCD-RSPACK s;WAS THE ACCESS PATH ATTENTION RECIEVED? 
39 004364 001527 BEQ 16$ ;I1F IT WAS, GO PROCESS 
40 ; ELSE CHECK SUCCESS 
41 004566 2$: 
42 004366 016700 173716 MOV P.STS+RSPACK ,RO ; SUCCESS? 
43 004372 001515 BEQ 14% sIF YES, EXIT 
44 004374 042700 177740 BIC 0177740,R0 ;CLEAR UPPER 11 BITS OF SUB-STATUS 
45 001510 BEQ 14$ ;IF SUCCESS = O, EXIT OK 
46 004402 173500 CLR ERRTYP ;IF GOT HERE, 
47 004406 122700 000013 CMPB @ST.DRV,RO ; DRIVE ERROR? 
48 004412 001015 BNE 3$ ;IF NOT NEXT TEST 
49 004414 032767 001000 173374 BIT @SR .DUA,SR1 ;ARE WE DUAL PORTI 
50 004422 001472 BEQ 12$ s;IF NOT, GO REPORT ERROR/ELSE EXPECTED 
51 0044 022767 000053 173656 CMP @<ST.DRV+SC.STO>,P.STS+RSPACK ;IS IT AN SDI RESPONCE T T? 
52 004432 001 BEQ 10$% ; IF , DRIVE IS NOY ONLINE, EXIT 
S53 004434 022767 000113 173646 CMP @<ST.DORV+SC.INV>,P.STS+RSPACK ;IS IT THE INVALID SDI RESPONCE? 
004442 001460 BEQ 10% ;IF TRUE, ORIVE IS NOT ONLINE, EXIT 
55 004444 1 BR 12$ ;ELSE HARD ERROR 


EE, ee 


—-—— a 
; 


IK4 


er wre ee ™ —_ — 


SEQ 0048 
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MODULE CODE 


012767 
000453 


000472 


173632 
177777 


173424 


173406 


173370 


173650 


173610 
173600 
173570 


173270 


173622 


3$: 


CMPB @ST.CNT,RO 
BNE 4$ 
MOV @ERR.3,ERRTYP 
i BR ERRORH 
CMPB @ST.HST,RO 
BNE 5$ 
MOV @ERR.32,ERRTYP 
- BR ERRORH 
CMPB @ST.DAT,.RO 
BNE 6$ 
MOV ERR .1,ERRTYP 
7 BR ERRORS 
CMPB OST.WPR,RO 
- BEQ 12$ 
CMPB @ST.AVL,.RO 
BNE 9$ 
CMP @0P .GUS .P .OPCD+CMPACK 
BEG 14% 
BR 12$ 
9$: 
CMPB @ST.OFL,RO 
BNE 13% 
; #@% OFFLINE WHEN TRIED ONLINE OR GET 
CMP OOP .ONL .P. +CMPACK 
BEQ 10$% 
CMP @0P .GUS ,P .OPCD+CMPACK 
BEQ 10$ 
CMP o0P .WR,P .OPCD+CMPACK 
BNE 12$ 
10$: SEC 
RTS PC 
Lane HARD ERROR EXIT WITH ERROR TYPE = 
123: 
= + aaa 
am SOFT ERROR EXIT WITH ERROR TYPE = 
ERRORS 
; ##e SUCESSFUL EXIT 
14%: 
CLC 
RTS PC 
15$: 


; *¢¢ WAIT FOR ATTENTION INTERRUPT 


; #¢¢ DID WE GET AN AVAILABLE ATTENTION 
TST EXPAV 
BNE 16$% 
MOV 0177777, EXPAV 
BR 14$ 
16%: 


; CONTROLLER ERROR? 
;IF NOT NEXT TEST 
s;ELSE, SET ERROR TYPE 
; AND ERROR 


; HOST BUFFER ACCESS ERROR? 
;IF NOT NEXT TEST 

sELSE, SET ERROR TYPE 

;AND HARD ERROR 

; DATA ERROR? 

;IF NOT NEXT TEST 

T ERROR TYPE 


; WRITE PROTECTED? 
sELSE HARD ERROR 


; STILL AVAILABLE? 

sIF NOT NEXT TEST 

sELSE, IF COMMAND WAS 

$ GET UNIT STATUS 

; THEN EXPECTED &€ LEAVE ROUTINE 
;ELSE HARD ERROR 


; UNIT OFFLINE? 
sIF NOT NEXT TEST 


UNIT STATUS 


sWAS IT AN ONLINE COMMAND? 

sIF SO, SET CARRY/EXIT 

31S IT GET UNIT STATUS COMMAND? 
;IF SO, SET CARRY/EXIT 


sELSE, SET CARRY TO 

es RETURN TO DROP DRIVE/AWAIT AVAILABLE DRIVE 
;ELSE, SET ERROR TYPE 
Nees HARD ERROR 


;ERROR WITH ERRTYP = O € IS A SOFT ERROR 
; ST.CMP,ST.MFE,.ST.ABO,ST.CMD 


;CLEAR CARRY ‘CAUSE PACKET IS OK 
sELSE, OK, SO FAR. 


MESSAGE THAT WE EXPECTED? 
;IF EXPAV IS NOT 0, WE GOT ONE WE DION’T EXPECT 


;CLEAR ©XPECTED AVAILABLE ATTENTION MESSAGE WORD 
; AND RETURN 


es — 


——— 


L4 
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113 004644 052767 140000 173410 BIS @<RG.OWN+RG.FLG> ,RSPONC +2 
. . . 0 
114 004652 000626 BR INTERP sWAIT FOR RESPONCE OF LAST PACKET SENT 


115 


SS nee 


— 


_< ee ee 


OeneouvhLwfr 


017767 
001421 


——- eee 


173372 173572 


000000' 000454' 


000000’ 005534’ 


174532 


177252 
173116 


000064 
000272' 


M4 


SEQ 0050 
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MODULE CODE 


COREE ERERESEERSSESEEEESESESESESESESESESSEEEESESESESESESESESESOEEESEOES 
CLEAR PACKETS 
ASSUMPTION: $2 RESPONCE BUFFER PRECEDES THE COMMAND BUFFER 


TWO WORCS BEFORE EACH BUFFER IS FOR LENGTH 
OF PACKET AND VIRTUAL CIRCUIT 
OUTPUT: R2 = O WHEN 


DONE 
RS = END OF COMMAND PACKET WHEN DONE 


5 SESESSEEESSSESHSESSESESSSSESESESSESSESSESSSSSESSSSESSSSSSESSSSSESSSSSSESSESESES 


CLRPAK : 
MOV @SAREG , NUM ;IF SA REG NOT ZERO, STORE IN NUF 
BEQ 5$ VIF SA REG IS ZERO, CLEAR PACKETS 
| ERSEESEREESESSESESESEESESESSESEESSSSESEESESESEESESESESEESESSESE 
;CONVERT NUM TO ASCII AND 
;sSTORE AT ADR1 


OTOAS ,BEGIN, NUM, ADR1 


5 PERSSRSSSSSESESSSEEESSSESSESESESESSSESEESSESEOSSESEEESE DEESEE8% 
—" = » SANOTO sASCIT "ISAVE RS WITH COMMON HEADER 


a SP) 

MOV R4,-C(SP) ;SAVE R 

JSR PC, TUD sRE INIT SA REGISTER 

MOV CSP)+,R3 RESTORE a 

MOV (SP)+,R4 sRESTORE R4 

JSR PC .SCC 3SET CONTROLLER CHARS AGAIN 

INC T ; INCREMENT HARD ERROR COUNT 

DOING THIS WILL CAUSE ANOTHER CALL TO CLRPAK 

S$: MOV - 3;R2 = @ OF WORDS TO CLEAR 

MOV @RSPLEN,RS 3R5 -> RSPLEN, 1ST WORD TO CLEAR 
6$: CLR CRS)- ;CLEAR WORD 

DEC Re ;R2 = ZERO? = CONDITION) 

BNE 6$ ;IF NOT ZERO, 

RTS ;RETURN 
{PRES ESEEEESSOES SESESESEEEESESESESSSESSSSSSAESESESSESESESESESESSEEESESES 
; ; 
$ HARD ERROR CARRY WILL BE SET ; 

é 


é 
5 RROEASESESESEESSSESSESESESESSSEESESESESSSESESSSSESSESSSESSSEESESSSSSSSSEOESOS 


BIT @SR.REP ,SR1 :00 WE REPORT THE ERROR? 
BEQ 7$ ;IF SO, REPORT 
INC HROCNT ;ELSE, INCREMENT THE HARD ERROR 
; COUNT IF NOT REPORTED 
BR 8% ;SKIP REPORT 
78: JSR PC, SETTAB ;SET UP TABLE 


{ PARAEAERSEREEEEESESESSEEADESESEREL ESAS DSSSEEDSSESEDESESSEEEEESS 


HRDER$ ,BEGIN, NULL 


é 
WreverrrrrrrrrrrTTT Tr rrr tritici  o 


JSR PC, PRINTE 
8s: SEC 
RTS PC ;RETURN TO CYCLED 


[RESO REEERERESESEEESESEESESESESEESESEESEEEESESSSESEESESESSESES OSS ES SESS 
+ 


me eee — 
——_— — 


<a CC Cll LLL AL MO 


N4 
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MOOULE CCDE 


87 


89 





005072 


005072 
005100 


005102 
005110 


005112 
005120 


032767 000004 175002 
001403 

7 173020 
000407 
004767 000016 
104406 000000’ 000000 
004767 000050 
000261 
000207 
016767 172734 173024 
016767 173230 17302 
017767 173164 175012 
000207 


104420 000000' 000510’ 
000466 ' 


104420 000000‘ 000306' 
000475 ' 


104420 000000' 000502’ 
000504 ' 


: SOFT ERROR CARRY WILL BE SET ; 
se neccaccecsoncsccsascnessoccsonssonceocssosenccesssecenccascesecesccese. 
ERRORS: 

BIT @SR .REP.SR1 300 WE REPORT THE ERROR? 

BEQ 9$ ;IF SO, REPORT 

INC SOF CNT ;ELSE. INCREMENT THE HARD ERROR 

; COUNT IF NOT REPORTED 

BR 10$ ;SKIP REPORT 
9$: JSR PC, SETTAB ;SET UP TABLE 

| PRORESEESESESESESSSEEEESESSSEESSEESSESSSSEESESSESEES EES SORES SESSS 

SOFER$ ,BEGIN, NULL : 

| ROSREESAEEECESERESEEEESESEEESSESESESESEESESSEESEESESSESSESEEESEES 

JSR PC ,PRINTE 
10$: SEC ;SET CARRY 

RTS PC ;RETURN TO CYCLED 
s SORESEEESEEAERESESSEESESESESSESESSESESERESERESESEEEESESESESESESESSESEES 
‘ 
3 SETTAB 
: rs 
$ SET UP A TABLE OF VALUES FOR A SOFT OR HARD ERROR 3 

3 


> 
j PESSSSSSESESSESSSSESSESESSSSSESESSSSESESSSESSESSSSSSSESSSSESSSSSSSESSESESESS 


SETTAB: 
MOV ADDR ,CSRA ;SET UP CONTROL STATUS REG REPORT 
MOV P.STS*«RSPACK , ASTAT ;SET UP STATUS 
ad @SAREG ,.ACSR sREPORT WHAT IS STATUS REG 
| PERSRESERERESSSEESEESESESESERSE SES DSSESESESESESESESESSSE SESE SSESSEEESES 
; 
: PRINT EXTENDED ERROR MESSAGE 
$ 
: PRINT STATUS. OPCODE., UNIT NUMBER, BYTE COUNT, LBN AND ADDRESS 
| OROSeSeSeeeeeEseEssesenssasessoaseeseeneoseessaeaessessassoeseseeessess 
PRINTE: 


| SEASESHSSELESSSESSSEASSESHSSSASSSHSSESESESSSSESESSASESESSESSSSESE SS 
;CONVERT P.STS+RSPACK TO ASCII AND 
;STORE AT ADR1 

OTOAS ,BEGIN, © .STS+RSPACK ,ADR1 


s SORSEERERESEESEEERESERERESSEESESESEDESESESSSSSESESSSESESESEDES 

; SERSEESEREREESEESSESESERESSSESESSSSSESEAESESESESESSSSSEDEOESESS 
;CONVERT P.OPCD+RSPACK 10 ASCII AND 
;STORE AT ADR2 

OTOAS ,BEGIN,P .OPCD+RSPACK , ADR2 


sR OOPS ESEESSSSSESESSESESESESEESSSSESESESEESESESSSSSESESESESESSS 

s SERSCEEEERESEESSESESESESEESRSEESSEESEDSEESESESEESESESESESSESESESS 
;CONVERT P.UNIT+RSPACK TO ASCII AND 
;STORE AT ADRS 

OTOAS ,BEGIN,P.UNIT+RSPACK , ADRS 


| SEREDOSSEEESSESEESESSESESESSSSSSESEEESSSESSSOESSESESESESESE SSS 
5 OROEAEOESERESESESSLEEESSESSSOSSSESEESSESSSS SESEEESEEESSSSESSEDES 


sCONVERT P.BCNT+RSPACK TO ASCII AND 


——- Eee Oe — 
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MOOULE CODE 
005122 
005150 

90 
005152 
005140 

91 
005142 
005150 

92 
005152 
005160 

93 
005162 
005170 

94 005172 

95 005200 

96 


104420 
00051 53° 


000000 ° 


——- — ow 


000312° 


000420’ 


000416’ 


005376' 


sSTORE AT ADR4 
OTOAS , BEGIN, P.BCNT +RSPACK , ADRS 


{POSSESS SSHSHSOSSESSSSESEESSSSOSESSSSEEESSSESESESSSESESESSESEESESESES 

f PSSSSESESSSESSSESSESESSESESSSESSESSSESESESESESSESSESESESOSSEOESESEEEES 
sCONVERT P.LBN+-2-CMPACK TO ASCII AND 
sSTORE AT ADRS 

OTOAS ,BEGIN,P.LBN+2+CMPACK , ADRS 


f SSSSSSESSSSESSSEESSSSESSESSSSSSSESSSSSESSSSSSESSSESESSSOSSESESOESS 

f SSSSSSESHESSSEESSSSSESSEHEESSSSSSSESSESSESSHSSSSESSOSESESSEHSESOEEESS 
sCONVERT P.LEN+CMPACK TO ASCII AND 
sSTORE AT ADRE 

OTOAS ,BEGIN,P.LBN+CMPACK , ADRE 


s SCSSSESESESEESESSHSSESESSSESESSSSSSSESSESSESESESESESESESSESESESES 

§ OCOSSSSEESSESEESEESESESOSSESHSESSEESSESSESSESSESESSSEHESEESEESEESES 
sCONVERT P.ADEA+CMPACK TO ASCII AND 
sSTORE AT ADR7 

OTOAS ,BEGIN,P. ADEA+CMPACK , ADR7 


jPOCOOSESECESESESESEEEESESESESSSESESESESESSEOESESESESESEESESESS 

$OOCSOCOSCEEEESEEEEESL OSEEEEEESSESEOSSESEESSOSSESLEESEOEESESSESS 
sCONVERT P.ADPA+CMPACK TO ASCII AND 
sSTORE AT ADRES 

OTOAS ,BEGIN,P. ADPA+CMPACK , ADRS 


sPSSOSEHSSSSESSESSSEEESSSSESSSESHSSEHSSSSESSESHSSESSSESESSESSOSES 


ee sASCII MESSAGE CALL WITH COMMON HEADER 


ee ee eee eee s,m cL CC Ll LL LLL LLL LLL, 


led 
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MODULE MESSAGES 


.SBTTL MODULE MESSAGES 


1 
2 005202 005444’ INITEL: MSG2 
$ 005204 005515’ MSG4 
4 005206 177777 177777 
5 
6 005210 005475’ INITER: MSGS 
7 005212 000466’ ADR 1 
8 005214 005675’ MSG10 
9 005216 000475’ ADR2 
10 005220 006025’ MSG14 
11 005222 000504’ ADRS 
12 005224 177777 177777 
i3 
14 005226 005444’ INITE2: MSG2 
15 005230 005542’ MSGS 
+3 005232 177777 177777 
1 
16 005234 005444’ INITES: MSG2 
19 005236 005560’ MSG6 
= 005240 177777 177777 
1 
22 005242 005652’ ORP1: MSGS 
23 005244 000475’ ADR2 
24 005246 005662’ MSG9 
005250 006245' MSG20 
26 005252 000466' ADR1 
27 005254 006752’ MSGD1 
po 005256 177777 177777 
005269 005652’ DRP2: MSGS 
31 005262 000475' ADR2 
32 005264 005662' MSG9 
33 005266 006245' MSG20 
34 005270 000466' ADR1 
35 005272 006776' MSGD2 
bs 005274 177777 177777 
38 005276 005652’ DRPS: MSGS 
39 005300 000475' ADR2 
40 005302 005662’ MSG9 
41 005304 006245’ MSG2C 
42 005306 000466' ADR: 
43 005310 007040' MSGD3 
a 005312 177777 177777 
46 005314 005707’ ERRPAS: MSG11 
47 005316 000475' ADR2 
005 005733’ MSGl2 
49 005322 000504' ADRS 
50 005324 005771' MSG15 
51 005326 000466‘ ADR1 
S2 005330 005442' MSG1 
4 005332 177777 177777 
55 005334 006105 SANOTO: MSG17 
Sé 005336 000466' ADR1 
57 005340 006142’ MSG18 


ee 


177777 


006034 ' 
000466 ' 
177777 
00656 ' 
177777 


0064 
177777 


006 364 
177777 


005615’ 
177777 


006215’ 
177777 


177777 


UNIOFF ;: 


ZERO: 


177777 
MSG16 
ADR1 
177777 


MSG40 
177777 
MSG37 
177777 
MSG36 
177777 


MSG7 
177777 


MSG19 
177777 


177777 


er ieee 


DS 
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MODULE Mé SSAGES 


SEQ 0054 


ee ee 


EEE —— 


Oeneyv awfor 


co 


DUBD DEC/X11 SYSTEM EXERCISER M MACRO VO5.01b Thursday 20-Sep-84 10:17 Page 29 
MORE MODULE MESSAGES 


.SBTTL MORE MODULE MESSAGES 


-NLIST 
MSG1: 


BEX 


‘g’ 
‘SCONTROLLER INIT ERROR, ' 


‘STEP NOT SET.’ 

‘EXPECTED DATA WAS INCORRECT ' 
‘gRETRY COUNT EXCEEDED, ABORT’ 
‘SORIVE ' 

‘ DROPPED. 
' IN STEP ' 
‘sSOFT ERROR COUNT 0’ 
' eee HARD ERROR COUNT @' 
‘ SCHECK DATA ERROR COUNT 0’ 


'@UNIT WAS FOUND OFFLINE. UNIT NUMBER = ' 

‘SSA REGISTER IS NOT ZERO, ~ ' 

‘SCONTROLLER IS GOING THROUGH INITILIZATION’ 

‘SRING AREA NOT CLEAREDs’ 

‘SDEVICE ID BIT = ' 

‘STATUS ENDCOD UNITNU BYTECO HI LBN LO LBN EXTADR PHYADRs’ 


' § OPERATING WITH NO DISK ACCESSING !s’ 
<07><07>' !# CUSTOMER DATA WILL BE OVERWRITTEN !s’ 
6 mmm ewww meme eee e enn n nnn nnn nrrrnns #' <07><07> 
' IF YOU WISH TO DESTROY CUSTOMER DATA, SET BIT1 (NOT BITO)s’ 
‘ IN SWITCH REGISTER 1(SR1) OF DUBD? EQUAL TO 1.’ 
‘SERRORS CAUSED DRIVE TO BE DROPPEDS’ 
‘@UNIT WAS NOT FOUND BY EXERCISERS’ 
‘gDVID1 BIT SET HIGHER THAN ACTUAL @ OF DRIVES FOUNDS’ 


256. ; THE READ BUFFER 


SEQ 0055 


te oe _— A A A IE LE ae —_— = —-) ee re ee . - —- ————— we  - . =< -_ 


FS 





SEQ 0056 
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Symbol teble 
ABORT  005366R CF.576* 000001 HC.CMD= 000004 MD.WBV= 000040 OP.ONL= 000011 
ACSR  000102R CINTR  000254R HC .CPK= 000356R MODNAM OO0COOR OP.RD = 000041 | 
ADDR O00006R CLRPAK 004654R HC.RCT= 000002 MODSP  000252R OP. RPL= 000024 
ADDR22= 001000 CMDREF 000270R HC.RES= 000000 MSGD1  006732R OP.SCC= 000004 
ADR1 000466R 000362R HC.RPK= 000276R MSGD2 -:006776R OP.SHC= 000102 
ADR2  000475R HC.SIZ= 000010 MSGD3  007040R OP.SUC= 000012 

| ADRS HROCNT 000044R MSGN$ = 104403 OP.WR = 000042 

ADRS $ 000513R HRDER$= 104405 MSGS$ = 104402 OTOA$ = 104420 

ADRS  000522R HRDPAS 0000S0R MSG$ = 104401 PA 0004442 

ADR6 000531R ICONT 000036R MSG1 00544 PASCNT 000034R 

ADR? ICOUNT MSG10 005675R PA18  000SS6R 
ADR8 § 000547R IONUM 000122R MSG11 005707R PA22 

| ASB 000106R TMODX. = MSG12  005733R PICKBK 003154R 

| ASROS4 0020 INIT  000030R MSG13 005771R PIRG$ = 

| ASTAT O00104R INITER 005210R MSG14 006023R PKTSIZ= 000060 

| AVAILB 004114R INITE1 MSG16 006034R = 005726 

S$ 000110R INITE2 005226R MSG17 006105R POPSP2= 022626 
BANNER 005376R INITES 005234R MSG18 006142R PORTID 
BEGIN 001444R MSG19 006215R PRINTE 005072R 
BITO = 000001 INTA  002072R MSG2 PRNMSG 
BITOO = 000001 INTERP 004330R MSG20  006245R PRTNUM= 000017 
BITO1 = 000002 INTR  000120R MSG21  006270R PRTY = 000000 
BITO2 = 000004 LIMIT 000576R MSG23 006 PRTYO = 000000 
BITO3 = 000010 LOOP1 1 MSG3. 005475R PRTY1 = 000040 
BITO4 = 000020 LOOP2 001330R MSG36 006364R PRTY2 = 000100 
BITOS = 000040 L.CHVR= 000015 MSG37 006433R PRTY3 = 000140 
BITO6 = 000100 L.CNTI= 000014 MSG4  005515R PRTY4 = 000200 
BITO7 = 000200 L.CYL = 000034 MSG40 006556R PRTYS = 000240 
BITO8 = 000400 L.DATA= 000050 MSGS  005542R PRTY6 = 000300 
BITO9 = 001000 L.ERLC= 000030 MSG6 PRTY7 = 000340 
BITi = 000002 L.EVNT= MSG7 005615R PSs =:«177776 
BIT10 = 002000 L.GRP = 000040 MSGB  005652R PSH = «177776 
BIT11 = 004000 L.SCTR= 000042 MSG9 PUSH = 005746 
BIT12 = 010000 L.SLOT= 000002 NTRUPT 004334R PUSH2 = 024646 
BIT13 = 020000 L.TRCK= 000041 NULL = PURFLG= 000002 
BIT14 = 040000 L.UHVR= 000027 NUM 000454R P.ADEA= 000022 
BIT15 = 100000 L.UNTI= 000016 OLDEA P_ADPA= 000020 
BIT2 = 000004 L.USVR= OLDPA 000456R P-BCNT= 000014 
BIT3 = 000010 L.VSER= 000044 ONEFIL= 00000 P_BUFF= 000020 
BIT4 = 000020 MAITP 003666R ONLINE 004232R P_CMST= 000020 
BITS = 000040 MAITR 0035622 OPEN = P.CNCL= 000022 
BIT6 = 000100 MAITW  003616R OP .ABO= 000001 P.CNT = 
BIT7 = 000200 MAP22¢" 104416 OF. ACC= P_CNTF= 000016 
| BIT8 = 000400 MAIONC 061412R OP.ACP= 000102 P.CNTI= 000024 
BIT9 = 001000 MD. CMP = OP.AVA= 000100 P.CPSP= 000042 
BREAK$= 104407 MD.ERR= 010000 OP -AVL= 000010 P-CRF = 000000 
BR1 000012R EXP= 100000 OP.CCD= 000021 P.CTMO= 000020 
BR2 000013R MO .FEU= 000001 OP .CMP= 000040 P.CYL = 000050 
BTOD¢ = 104421 MD.NXU= 000001 OP .DAP= 000013 P.ELGF= 000034 
CDATAS= 104412 MD.SCH= 004000 OP .END= 000200 P.FBBK= 000034 

| CDERCT 000144R .SCL= 002000 OP.ERL= 000101 P.FLGS= 000011 

| CDWOCT 000146R MD.SEC* 001000 OP.ERS= 000022 P-GRP = 000046 
CF. AVL« MD .SER= 000400 OP .FLU= 000023 P_HSTI= 000020 

| CF .MSC=* 000100 MD.SPD* 000001 OP.GCS* 000002 P /HTMO= 

CF _OTH= 000040 MD.SSH= 000200 OP .GUS= 000003 P-LBN = 000034 

| CF.SHD= 000002 GWBUF $= 104414 MD.VOL= 000002 OP .MRD= 000030 P“LGDT= 000014 

OP.MWR= 000031 P.MEDI= 000034 


| CF_THS= 000020 HC.CCT= 000006 MD. WBN= 000100 





— — a 


GS 


SEQ 0057 


——— a 


VVUVIVIVVIVVVTVVVVIVVV VV UD 
~ 
a 
co 
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Symbol teble 


.MLUN# 
MOO = 
.OPCD= 
.OTRF = 


-RCTS= 


. ABS. 


Errors detected: 


000000 
010126 


000 )«=s (RW, 1, GBL ABS, OVR) 
001 (RW,I,LCL,.REL.CON) 
0 


eee Assembler statistics 


Work file reads: 0 

Work file writes: 0 

Size of work file: 12704 Words ( 50 Pages) 
Size of core pool: 14336 Words ( 56 Pages) 
| Operating system: RT-11 (Under RTEM-21 


apsed : 00:00:54.00 
| Shegeee xDUBDO/ C=XOUBDO. DOC ,DDXCOM.MAC , XOUBDO . MAC 


000024R 
000660R 


TAAAAAS 
Ww 
a 
=z 


ee eee 


H5 
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Cross reference table (CREF vo5.01) 


ABORT 17-55 28-730 

ACSR 4-3¢ 27-768 

ADDR 4-30 14-68 16-264 17-48 26-27 27-74 

ADDR22 4-30 

ADR1 oo 15-34 15-35« 17-34 21-33 27-15 27-86 28-7 28-26 
28 - 

ADR2 4-63@ 15-30 15-31¢ 17-32 21-31 21-32¢ 27-87 28-9 28-23 

ADRS 4-650 15-32 15-33¢ 17-48 27-88 28-11 28-49 28-84 

ADR4 4-67¢ 27-89 28 - 86 

ADRS 4-699 27-90 28-88 

ADRE 4-71@ 27-91 28-90 

ADR7 4-730 27-92 28-92 

ADRS 4-75@ 27-93 28-94 

ASB 4-30 

A 15-41 15-59 15-90 16-64 16-82 16-89 16-1090 

ASTAT 4-30 27-756 

AVAILB 19-89 24-21¢ 

AWAS 4-3¢ 

BANNER 27-94 28-796 

BEGIN 4-30 14-50 14-53 14-56 14-65 15-15 15-30 15-32 15-34 
5-88 15-93 16-23 16-31 16-31 16-79 16-86 16-132 16-135 
17-42 17-46 17-48 17-49 17-50 17-55 17-56 19-85 19-115 
21-41 21-43 26-29 26-32 27-15 27-16 27-44 27-61 27-86 
27-92 27-93 27-94 

BITO 4-3¢ 7-57 

BITOO 6-30 

BITO1 4-15 6-40 

BITO2 4-16 6-5¢ 

BITOS 4-17 6-60 

BITO4 6-790 

BITOS 6-89 

BITO6 6-990 

BITO7 6-10@ 16-51 16-53 

BITOS 6-11¢ 

BITO9 4-18 6-120 

BITL 4-30 

BIT10 4-30 4-19 6-130 

BIT1) 4-36 4-20 6-140 

BIT12 4-30 6-150 

BIT13 4-30 6-160 

BIT14 4-30 6-17¢ 8-4 

BITi5 4-30 6-180 8-3 16-45 16-50 

BIT2 4-30 

BITS 4-30 

BIT4 4-30 

BITS 4-30 

BITé 4-30 

BIT? 4-30 

BITs 4-30 

BIT9 4-30 

BR1 4-30 16-129 

BR2 4-30 

BREAKS 4-30 16-31 16-31 

BTOO$s 4-30 15-30 15-32 15-34 21-31 

CDATAS 4-30 19-85 19-115 

COERCT 4-30 14 -58¢ 15-34 


28-34 
28-31 


28-42 
28-39 


15-39 
17-26 
20-17 
27-88 


28-51 
26-47 


15-55 
17-32 
21-31 
27-89 


SEQ 0056 
26 -56 28-61 
28 -82 
15-57 15-80 
17-34 17-38 
21-33 21-37 
27-90 27-91 





me ee —_ 





ye 
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Cross reference table (CREF vo5.01) 


COWOCT 4-30 
CF.S76 11-8¢ 
CF. AVL 11-30 25-16 
22-33 23-12 23-30 24-8 24-21 24-34 25-12 25-29 27-12¢ 
14-646 16-70 18-19% 26-20e 26-22 
16-78 32-14e 22-15¢ 22-16 22-34e  22-35¢  22-36s 22-43% 22-46% 
23-340 23-38¢ 23-39% 23-40% 24-9 24-22% 24-356 24-36% 25-15 
26-85 26-87 26-89 27-90 27-91 27-92 27-93 
ate 23-36% 24-116 24-38 25-13¢ 25-3i¢ 
- ob 
4-41 16-80e 16-83 26-24¢ 26-25 
27-746 
19-16¢@ 19-48 
19-1100 
21-160 
21-196 
21-22¢ 
21-21 21-240 
28-220 
28-300 
28-386 
oat 15-52 15-64 15-77 16-61 21-24 21-30 
15-18 15-21 16-63 16-81 16-88 
15-55 17-26 17-56 
15-80 15-93 
26-69 
26-59 
26-64 
26-95 
16-139 17-300 
17-290 
16-54 16-60 17-280 
17-250 
19-77 26 -60 26-65 26 -96 27-370 
26-99 27-54¢ 
28-460 


23-136 
25-166 


23-15¢ 
25-326 


SEQ 0059 
23-16e 23-31 
26-226 26-23% 





ee 
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SEQ 0060 


ERRTYP 4-30 26-46% 26-59%  26-64¢ 26-69%  26-95¢ 
EXITS 4-39 16-132 26-29 
| EXPAV 4-580 14-59e 19-35 19-98% 26-108 26-110 
FREE 4-30 
GETPAS 4-30 15-15 15-39 16-23 16-79 16-86 
GTSTAA 24-24 24-380 
GTSTAT 18-50 19-30 19-68 24-340 
$ 4-30 15-57 15-88 
HC.CMD 68-130 
HC.CPK 6-160 
HC.RCT 68-120 
HC.RES 6-110 
HC.RPK 68-150 8-16 
HC.SIZ 8-80 
HROCNT 4-350 15-32 27-23%  27-40¢ 
HROERS$ 4-30 17-49 27-44 
HROPAS 4-30 
ICONT 4-30 
ICOUNT 4-30 
IONUM 4-30 
IMOOX. 4-30 15-57 15-88 
INIT 4-30 
INITEL 17-38 28-20 
INITE2 17-42 28-146 
INITES 17-46 28-180 
INITER 17-50 -6¢ 
INITUD 15-22 16-22@ 27-19 
INTA 16-128 16-134¢ 
INTERP 19-37 19-100 26-280 26-114 
INTR 4-30 
L.CHVR 13-150 
L.CNTI 13-11¢ 15-120 
L.CYL 13-160 
L.DATA 13-230 
L.ERLC 15-170 
L.EVNT 13-9¢ 
L.GRP 13-190 
L.SCTR 13-210 
L.SLOT 15-100 
L.TRCK 13-200 
L.UHVR 13-16¢ 
L.UNTI 13-140 
L.USVR 13-150 
L.VSER 13-220 
LIMIT 5-160 22-57 22-39 
LOOP1 15-53 15-576 15-81 
LooP2 15-63¢@ 15-78 
MALONC 15-45 15-88¢@ 15-94 
TP 22-18 22-40 22-420 
MAITR 19-112 22-130 
MAITW 19-111 22-3350 
MAP22¢ 4-30 
MD.CMP 10-30 
MD.ERR 10-50 
MD.EXP 10-40 





KS 
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SEG 0061 


MSG2 28-2 28-14 28-18 29-5¢ 
MSG20 26-25 28-33 28-41 29-220 


MSG23 26-61 28-83 28-85 28-87 28-89 28-91 28-93 29-240 


28-38 29-110 
28-40 29-120 


SESSSSRIRSS 


-e. 
va 
~ 


PS 
SIVVVVVBBVBBB 
‘ 

2 


MSGN$S 4-36 14-50 14-53 14-56 15-36 17-25 17-38 17-42 17-46 17-50 17-55 21-37 21-41 21-43 


MOONAM 4-30 

mMOOSP 4-3 4-3¢ 

mMSG$ 4-30 

MSG1 28-S2 28-95 29-40 
4-480 17-31 17-32 17-33 17-34 21-178 21-208 21-23e 21-35% 21-39% 27-15¢ 27-15 


ONLINE 19-42 - 
OP . ABO 9- 

oP . ACC 9-4¢ 

OP.ACP 9-250 26-38 
OP.AVA 9-220 26-36 
OP.AVL 9-50 24-22 





- o . 7 P s-5 
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op .CCD 
oP . CMP 
oP . DAP 


OP .END 


——— ee ee 


ZIVEVSVEVVSS 
“BERR 2 oR 8858 


~ 2 2 


_ —_— 


vVvUVVVVUU VVVVVVVVVVVUVUVUVUUVUVUUUTSO 


OP . ERL 


8 
am 
cD 
cw 


: 


222235388 


RAMON 3 
Barz s Z22 
SRR S°Sa5 


oe 2 
e233 


Sga3igey 8s 


' 
eT: 
26 


eee 


COOOOOOOO 
ro 
o38 


9-190 


24-9 


12-420 


12-4¢ 


12-550 
12-200 
23-39 


12-320 
24 - 36% 
12-60 
26-85 
12-14¢ 


26-87 


4-3 

4-3 
17-48 
23-16 


23-15 
23-38 


26-226 


27-90 


22-14¢ 


26-89 


—_—_— 


LS 


4-3 4-3 4-3 4-3 
4-3 4-3 4-3 4-3 
21-33 27-15 27-86 27-87 

23-330 27-92 

23-34e 27-93 

27-89 

27-91 

22-340 23-13 23-31% 24-9 
27-87 


24-226 


4-3 
4-3 


27-89 


24-356 


4-3 
4-3 


27-90 


25-15 


25-32¢ 


SEQ 0062 
4-3 4-3 
4-3 4-3 
27-92 27-93 
26-36 26-38 
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SEQ 0063 





P.SHST 12-230 12-470 
P.SHUN i1-32@ 12-220 12-360 
P.STS 12-60 18-80 18-84 26-42 26-51 26-53 27-75 27 -86 
P.SZOF 12-560 
P.TIME 11-450 
| PLUNFL 11-28@ 12-199 = 12-33¢ 
'PLUNIT 11-14@ 12-5@ 12-520 18-36 26-23 27-88 
P.UNSZ 12-37@ 19-44 19-45 
_P.UNTI 11-30@ 12-210 12-550 
| P.USEF 11-424 
P.VRSN 11-390 12-410 
| P.VSER 12-380 
PA 4-420 15-16 15-20 16-55 16-80 16-87 
PA18 5-5¢ 
PA22 5-7¢ 
PASCNT 4-30 15-27 
| PICKBK 19-67 20-118 
PIRG$ 4-30 16-135 26-32 
PKTSIZ 8-90 8-16 
sP 4-30 
2 4-30 
PORTID 5-210 15-66« 18-25 18-Si* 21-24 21-26 21-30 21-35 
PRINTE 27-45 27-62 27-85¢ 
4-54@ 14-60e 15-27 15-29 
4-530 4-54 14-60 15-29 
4-30 
4-3 4-3¢ 
4-30 
4-30 
4-30 
4-3 4-36 
4-30 
4-36 
4-30 
4-30 
4-30 
4-30 
4-30 
4-30 
R6 4-30 
4-30 
20-140 
4-30 14-65 20-15 20-17 
4-3¢ 14-66 20-16 20-18 
4-45¢@ 15-42 2-15 23-33 
4-3 29-340 
4-30 15-40 
4-30 19-85 19-115 22-16 23-34 
4-30 22-17 23-32 
4-30 15-39 
19-80 23-300 
23-)”" 23-350 
4-30 
4-30 
15-19 15-240 


ee 


NS 
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RESTR2 15-17 15-200 
RESTRT 4-3 15-13¢ 
RG.FLG 6-40 19-36 19-99 26-24 26-26 26-113 
RG.OWN 6-30 19-36 19-99 26-25 26-26 26-115 
RINTR 4-260  26-35¢ 
RLIM 5-260 17-52 
RSPACK 4-35¢ 6-15 16-85 18-36 18 -80 18-64 19-44 19-45 
27-86 27-87 27-88 27-89 
RSPLEN 4-330 22-440 23-35¢  24-10¢ 24-238 24-37e 25-14# 25-30% 
RSPONC 4-28¢@ 15-14 16-22 16-66 16-87 16-90e 19-36% 19-99 
RSPVIR 4-340 22-48¢ 
RSTRT 4-30 
-CMD 7-290 
SA.CME 7-44¢ 
SA.DIA 7-200 16-36 
SA.ERC 7-13¢ 
SA.ERR 7-90 16-29 16-138 
SA.GO 7-57@ 16-76 
SA.INE 7-34@ 
SA.INT 7-27@ 16-45 
SA.MAP 7-210 16-57 
SA.MCV 7-53¢ 
SA.NSI 7-160 
SA.PRG 7-390 
SA.Q@22 7-19@ 16-37 
SA.RSE 7-435¢ 
SA.RSP 7-260 
SA.S1 7-S¢@ 16-35 16-38 16-48 
SA.S2 7-60 16-53 
SA.S35 7-7@ 
SA.S4 7-8¢ 
SA. SM 7-22@ 16-37 
SA. VCE 7-330 
SA. VEC 7-260 
SANOTO 27-16 28 -55¢ 
SAREG 4-230 14-68+ 14-69¢ 16-26 16-77  16-130e 16-137 17-35 
SBADR 4-30 
SC.0IS 135-490 16-80 18-84 
SC.0UP 15-51¢@ 16-80 18-84 
SC. INV 13-56¢ 26-53 
SC.IOP 13-48@ 16-80 18-84 
Co.NVL 13-466 18-80 18-84 
SC.STO 13-55@ 26-51 
scc 18-18 25-11¢ 27-22 
SECH S-11@ 14-67¢ 20-24e 20-40 20-41 20-44% 20-49%  20-70s 
CL 5-10@ 14-66e 20-57# 20-64% 20-60 20-74e 23-39 
22-49 23-41 24-12 24-39 25-18 26-208 26-21 
SEQACC 20-13 20-630 
SETTAB 27-43 27-60 27-730 
SETLP 8615-51 18-160 
SNDSTP 16-49 16-56 16-65 16-127¢ 


26-36 


27-26 
26-26% 


27-13 


20-72 


26 -38 


26-1136 


27-76 


20-75# 


26-42 


23-40 


26-51 


SEQ 0064 


26-53 


27-75 





— —— - — 


- ee ee wee ee ee owe eee = 


——~ rie a 
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SEQ 9065 


oR DUA 4-160 19-19 19-75 19-86 26-49 


, . ag 4-5 15-44 
= a3e, 14.49e 14-81 15-25 15-44 19-19 19-75 19-82 19-66 19-113 20-12 26-49 27-38 27-55 
SR2 4-30 16-72 
SRt 4-30 
SR4 4-30 


ST.AVL 13-330 19-70 26-75 
ST.ORV 13-400 16-78 26-47 26-51 26-53 


SUB 

ST.SUC 13-290 
WPR 

17-54 


: 


: 
pooooooenes 
BREST SST SS 


14-62¢ 14-63¢ 15-61 18-22 18-39 
16-41 18-65 


ee 
% 
z 


3 
3 
3 
3 


a 


S2 1 


———) 
o@vebeaeaeyviauivi 
~“ 
oe 
So 


: 


1 


CF) 
, SEQ 9064 
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10-370 

28-600 

5-220 

5-1 15-43¢ 15-67¢ 16-23¢ 18-24 16-36e 18-45 16-SO* 18-56 18-58 18-636 21-31 26-23 
5 140 19-44¢ 19-47 20-25 20-28 -41 20-72 
5-13¢@ 19-45 19-65¢ 20-50 20-52 20-54 20 -66 
4-41@ 15-14¢ 15-15 1$-22e 16-25 16-78 16-79 16 -85¢ 16 - 86 
4-3¢@ 15-37 16-42 16-91e 16-127 

14-50 28 -640 

14-53 28 -670 

14-56 28-700 

4-30 

4-460 15-60¢ 15-91¢ 22-35 23-16 

4-306 15-58 15-89 

4-30 22-36 23-15 

4-30 

4-36 19-60 22-37 22-41 23-14 

4-30 

4-30 

5-250 18-29¢ 18-32e 

19-75 23-120 
23-140 

4-30 

5-60 

17-25 28-760 





OO as — 
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———E el — 
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Cross reference table (CREF vo5.01) 


16-31 
15-30 15-32 
19-85 19-115 
4-3 4-3 
4-3 4-3 
17-26 
15-60 15-93 
15-55 17-56 
4-3 
16-132 26-29 
15-15. 15-39 
15-57 15-88 
17-49 27-44 
4-3 
4-3 
14-50 14-53 
27-94 
17-32. 17-34 
16-135 26-32 
14-65 20-15 
27-61 


16-25 


14-56 


17-48 
20-17 


16-79 


15-36 


21-33 


16 -86 


17-25 


27-15 


4-3 4-3 4-3 4-3 
4-3 

17-38 17-42 17-46 = 17-S0 
27-86 27-87 27-88 27-89 


4-5 


17-S5 


27-90 


21-37 


27-91 


SEQ 0067 


21-41 


27-92 


21-43 


27-93 


